object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 728
  Width = 1280
  object scSge: TSQLConnection
    ConnectionName = 'imob'
    DriverName = 'UIB FireBird15'
    GetDriverFunc = 'getSQLDriverINTERBASE'
    LibraryName = 'dbexpUIBfire15.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=UIB FireBird15'
      'BlobSize=-1'
      'CommitRetain=False'
      'Database=localhost:C:\home\bd\imob_ravelyn.fdb'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Password=masterkey'
      'RoleName=RoleName'
      'ServerCharSet=win1252'
      'SQLDialect=3'
      'Interbase TransIsolation=ReadCommited'
      'User_Name=sysdba'
      'WaitOnLocks=True'
      'str_relatorio=c:\home\imobats\relatorios\'
      'str_doc=c:\Fontes\imob\doc\'
      'str_help=c:\Fontes\imob\')
    VendorLib = 'fbclient.dll'
    Left = 224
  end
  object dst_empresa: TSQLDataSet
    CommandText = 'select * from EMPRESA'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = scSge
    Left = 16
    object dst_empresaRAZAO_EMPRESA: TStringField
      FieldName = 'RAZAO_EMPRESA'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_empresaNCRECI: TStringField
      FieldName = 'NCRECI'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_empresaENDERECO: TStringField
      FieldName = 'ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object dst_empresaNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_empresaCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_empresaBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_empresaCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_empresaESTADO: TStringField
      FieldName = 'ESTADO'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object dst_empresaCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_empresaTELEFONE: TStringField
      FieldName = 'TELEFONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_empresaFAX: TStringField
      FieldName = 'FAX'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_empresaEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object dst_empresaROME_PAGE: TStringField
      FieldName = 'ROME_PAGE'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object dst_empresaLOGOTIPO: TBlobField
      FieldName = 'LOGOTIPO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object dst_empresaNOME_EMPRESA: TStringField
      FieldName = 'NOME_EMPRESA'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_empresaCOD_EMPRESA: TIntegerField
      FieldName = 'COD_EMPRESA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_empresaCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
  end
  object dsp_empresa: TDataSetProvider
    DataSet = dst_empresa
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 80
  end
  object cds_empresa: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_empresa'
    BeforePost = cds_empresaBeforePost
    Left = 150
    object cds_empresaCOD_EMPRESA: TIntegerField
      FieldName = 'COD_EMPRESA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_empresaNOME_EMPRESA: TStringField
      FieldName = 'NOME_EMPRESA'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_empresaRAZAO_EMPRESA: TStringField
      FieldName = 'RAZAO_EMPRESA'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_empresaNCRECI: TStringField
      FieldName = 'NCRECI'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_empresaENDERECO: TStringField
      FieldName = 'ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object cds_empresaNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_empresaCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_empresaBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_empresaCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_empresaESTADO: TStringField
      FieldName = 'ESTADO'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object cds_empresaCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_empresaTELEFONE: TStringField
      FieldName = 'TELEFONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object cds_empresaFAX: TStringField
      FieldName = 'FAX'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object cds_empresaEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_empresaROME_PAGE: TStringField
      FieldName = 'ROME_PAGE'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_empresaLOGOTIPO: TBlobField
      FieldName = 'LOGOTIPO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object cds_empresaCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
  end
  object dst_inquilino: TSQLDataSet
    CommandText = 
      'select inq.*, cep.rua'#13#10'from INQUILINOS inq '#13#10'left outer join CEP' +
      ' cep on '#13#10'cep.COD_CEP=inq.COD_ENDERECO '#13#10'where COD_INQUILINO = :' +
      'Pcod'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'Pcod'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 15
    Top = 46
    object dst_inquilinoCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_inquilinoNOME_INQUILINO: TStringField
      FieldName = 'NOME_INQUILINO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object dst_inquilinoCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_inquilinoNUMERO: TStringField
      FieldName = 'NUMERO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_inquilinoCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_inquilinoFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_inquilinoFONE1: TStringField
      FieldName = 'FONE1'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_inquilinoFONE2: TStringField
      FieldName = 'FONE2'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_inquilinoCPF_CPJ: TStringField
      FieldName = 'CPF_CPJ'
      ProviderFlags = [pfInUpdate]
    end
    object dst_inquilinoRG_IE: TStringField
      FieldName = 'RG_IE'
      ProviderFlags = [pfInUpdate]
    end
    object dst_inquilinoSEXO: TStringField
      FieldName = 'SEXO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_inquilinoDATA_NASCIMENTO: TDateField
      FieldName = 'DATA_NASCIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_inquilinoESTADO_CIVIL: TStringField
      FieldName = 'ESTADO_CIVIL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_inquilinoREGIME_CASAMENTO: TStringField
      FieldName = 'REGIME_CASAMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_inquilinoPAI: TStringField
      FieldName = 'PAI'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object dst_inquilinoMAE: TStringField
      FieldName = 'MAE'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object dst_inquilinoLOCAL_TRABALHO: TStringField
      FieldName = 'LOCAL_TRABALHO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object dst_inquilinoFUNCAO: TStringField
      FieldName = 'FUNCAO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_inquilinoSALARIO: TFloatField
      FieldName = 'SALARIO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_inquilinoDATA_ADM: TDateField
      FieldName = 'DATA_ADM'
      ProviderFlags = [pfInUpdate]
    end
    object dst_inquilinoFONE_TRABALHO: TStringField
      FieldName = 'FONE_TRABALHO'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_inquilinoNOME_ESPOSA: TStringField
      FieldName = 'NOME_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object dst_inquilinoCPF_ESPOSA: TStringField
      FieldName = 'CPF_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 14
    end
    object dst_inquilinoRG_ESPOSA: TStringField
      FieldName = 'RG_ESPOSA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_inquilinoLOCAL_TRABALHO_ESPOSA: TStringField
      FieldName = 'LOCAL_TRABALHO_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object dst_inquilinoFUNCAO_ESPOSA: TStringField
      FieldName = 'FUNCAO_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_inquilinoSALARIO_ESPOSA: TFloatField
      FieldName = 'SALARIO_ESPOSA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_inquilinoDATA_ADM_ESPOSA: TDateField
      FieldName = 'DATA_ADM_ESPOSA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_inquilinoFONE_TRABALHO_ESPOSA: TStringField
      FieldName = 'FONE_TRABALHO_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_inquilinoEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object dst_inquilinoOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 340
    end
    object dst_inquilinoTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_inquilinoRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
    object dst_inquilinoSITUACAO: TStringField
      FieldName = 'SITUACAO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object dst_inquilinoDATA_NASC_ESPOSA: TDateField
      FieldName = 'DATA_NASC_ESPOSA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_inquilinoUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object dst_inquilinoCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_inquilinoCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object dst_inquilinoBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object dst_inquilinoRAZAO: TStringField
      FieldName = 'RAZAO'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
  end
  object dsp_inquilino: TDataSetProvider
    DataSet = dst_inquilino
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 72
    Top = 48
  end
  object cds_inquilino: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'Pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_inquilino'
    BeforePost = cds_inquilinoBeforePost
    OnNewRecord = cds_inquilinoNewRecord
    Left = 150
    Top = 48
    object cds_inquilinoCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      DisplayFormat = '000'
    end
    object cds_inquilinoNOME_INQUILINO: TStringField
      FieldName = 'NOME_INQUILINO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_inquilinoCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_inquilinoNUMERO: TStringField
      FieldName = 'NUMERO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_inquilinoCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_inquilinoFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object cds_inquilinoFONE1: TStringField
      FieldName = 'FONE1'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object cds_inquilinoFONE2: TStringField
      FieldName = 'FONE2'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object cds_inquilinoCPF_CPJ: TStringField
      FieldName = 'CPF_CPJ'
      ProviderFlags = [pfInUpdate]
    end
    object cds_inquilinoRG_IE: TStringField
      FieldName = 'RG_IE'
      ProviderFlags = [pfInUpdate]
    end
    object cds_inquilinoSEXO: TStringField
      FieldName = 'SEXO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_inquilinoDATA_NASCIMENTO: TDateField
      FieldName = 'DATA_NASCIMENTO'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/9999;1;_'
    end
    object cds_inquilinoESTADO_CIVIL: TStringField
      FieldName = 'ESTADO_CIVIL'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/00;1;_'
      Size = 15
    end
    object cds_inquilinoREGIME_CASAMENTO: TStringField
      FieldName = 'REGIME_CASAMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_inquilinoPAI: TStringField
      FieldName = 'PAI'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_inquilinoMAE: TStringField
      FieldName = 'MAE'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_inquilinoLOCAL_TRABALHO: TStringField
      FieldName = 'LOCAL_TRABALHO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_inquilinoFUNCAO: TStringField
      FieldName = 'FUNCAO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_inquilinoSALARIO: TFloatField
      FieldName = 'SALARIO'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_inquilinoDATA_ADM: TDateField
      FieldName = 'DATA_ADM'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/9999;1;_'
    end
    object cds_inquilinoFONE_TRABALHO: TStringField
      FieldName = 'FONE_TRABALHO'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 13
    end
    object cds_inquilinoNOME_ESPOSA: TStringField
      FieldName = 'NOME_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_inquilinoCPF_ESPOSA: TStringField
      FieldName = 'CPF_ESPOSA'
      ProviderFlags = [pfInUpdate]
      EditMask = '999.999.999-99;1;_'
      Size = 14
    end
    object cds_inquilinoRG_ESPOSA: TStringField
      FieldName = 'RG_ESPOSA'
      ProviderFlags = [pfInUpdate]
    end
    object cds_inquilinoLOCAL_TRABALHO_ESPOSA: TStringField
      FieldName = 'LOCAL_TRABALHO_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_inquilinoFUNCAO_ESPOSA: TStringField
      FieldName = 'FUNCAO_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_inquilinoSALARIO_ESPOSA: TFloatField
      FieldName = 'SALARIO_ESPOSA'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_inquilinoDATA_ADM_ESPOSA: TDateField
      FieldName = 'DATA_ADM_ESPOSA'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/9999;1;_'
    end
    object cds_inquilinoFONE_TRABALHO_ESPOSA: TStringField
      FieldName = 'FONE_TRABALHO_ESPOSA'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 13
    end
    object cds_inquilinoEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object cds_inquilinoOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 340
    end
    object cds_inquilinoTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_inquilinoRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
    object cds_inquilinoSITUACAO: TStringField
      FieldName = 'SITUACAO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object cds_inquilinoDATA_NASC_ESPOSA: TDateField
      FieldName = 'DATA_NASC_ESPOSA'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/9999;1;_'
    end
    object cds_inquilinoUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object cds_inquilinoCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_inquilinoCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_inquilinoBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_inquilinoRAZAO: TStringField
      FieldName = 'RAZAO'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
  end
  object proc_Inquilino: TSQLClientDataSet
    CommandText = 
      'select COD_INQUILINO, NOME_INQUILINO '#13#10'from INQUILINOS '#13#10'where N' +
      'OME_INQUILINO like :pNome '#13#10'and ((SITUACAO = :psit) or (:psit = ' +
      #39'todos'#39'))   '#13#10'order by NOME_INQUILINO'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pNome'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'psit'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'psit'
        ParamType = ptInput
      end>
    DBConnection = scSge
    Left = 224
    Top = 48
    object proc_InquilinoCOD_INQUILINO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object proc_InquilinoNOME_INQUILINO: TStringField
      DisplayLabel = 'Nome do Inquilino'
      FieldName = 'NOME_INQUILINO'
      Size = 60
    end
  end
  object dst_bens: TSQLDataSet
    CommandText = 'select * from BENS'#13#10'where COD_INQUILINO =:pcod_inquilino'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod_inquilino'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 16
    Top = 92
    object dst_bensCOD_BENS: TIntegerField
      FieldName = 'COD_BENS'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_bensBENS: TStringField
      FieldName = 'BENS'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object dst_bensCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dsp_bens: TDataSetProvider
    DataSet = dst_bens
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 72
    Top = 92
  end
  object cds_bens: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod_inquilino'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_bens'
    BeforePost = cds_bensBeforePost
    Left = 152
    Top = 92
    object cds_bensCOD_BENS: TIntegerField
      FieldName = 'COD_BENS'
    end
    object cds_bensBENS: TStringField
      FieldName = 'BENS'
      Size = 60
    end
    object cds_bensCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
    end
  end
  object dst_referencia: TSQLDataSet
    CommandText = 'select * from REFERENCIAS'#13#10'where COD_INQUILINO =:pcod'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 16
    Top = 136
    object dst_referenciaCOD_REFERENCIA: TIntegerField
      FieldName = 'COD_REFERENCIA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_referenciaREFERENCIA: TStringField
      FieldName = 'REFERENCIA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object dst_referenciaFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_referenciaCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dsp_referencia: TDataSetProvider
    DataSet = dst_referencia
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 72
    Top = 136
  end
  object cds_referencia: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_referencia'
    BeforePost = cds_referenciaBeforePost
    Left = 152
    Top = 137
    object cds_referenciaCOD_REFERENCIA: TIntegerField
      FieldName = 'COD_REFERENCIA'
    end
    object cds_referenciaREFERENCIA: TStringField
      FieldName = 'REFERENCIA'
      Size = 60
    end
    object cds_referenciaFONE: TStringField
      FieldName = 'FONE'
      Size = 13
    end
    object cds_referenciaCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
    end
  end
  object dst_repre: TSQLDataSet
    CommandText = 
      'select * from REPRESENTANTE_INQUILINO'#13#10'where ((COD_INQUILINO=:pr' +
      'ep) or (:prep = 9999999))'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'prep'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'prep'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 8
    Top = 184
    object dst_repreCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_repreCOD_REPRESENTANTE: TIntegerField
      FieldName = 'COD_REPRESENTANTE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_repreNOME_REPRESENTANTE: TStringField
      FieldName = 'NOME_REPRESENTANTE'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object dst_repreCPF: TStringField
      FieldName = 'CPF'
      ProviderFlags = [pfInUpdate]
      Size = 14
    end
    object dst_repreRG: TStringField
      FieldName = 'RG'
      ProviderFlags = [pfInUpdate]
    end
    object dst_repreESTADOCIVIL: TStringField
      FieldName = 'ESTADOCIVIL'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_repreREGCASAMENTO: TStringField
      FieldName = 'REGCASAMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_repreCARGO: TStringField
      FieldName = 'CARGO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_repreFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_repreCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_repreRAMAL: TStringField
      FieldName = 'RAMAL'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_repreEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
  end
  object dsp_repre: TDataSetProvider
    DataSet = dst_repre
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 72
    Top = 184
  end
  object cds_repre: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'prep'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'prep'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_repre'
    BeforePost = cds_repreBeforePost
    OnNewRecord = cds_repreNewRecord
    Left = 152
    Top = 184
    object cds_repreCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_repreCOD_REPRESENTANTE: TIntegerField
      FieldName = 'COD_REPRESENTANTE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_repreNOME_REPRESENTANTE: TStringField
      FieldName = 'NOME_REPRESENTANTE'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_repreCPF: TStringField
      FieldName = 'CPF'
      ProviderFlags = [pfInUpdate]
      EditMask = '999.999.999-99;1;_'
      Size = 14
    end
    object cds_repreRG: TStringField
      FieldName = 'RG'
      ProviderFlags = [pfInUpdate]
    end
    object cds_repreESTADOCIVIL: TStringField
      FieldName = 'ESTADOCIVIL'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_repreREGCASAMENTO: TStringField
      FieldName = 'REGCASAMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_repreCARGO: TStringField
      FieldName = 'CARGO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_repreFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 13
    end
    object cds_repreCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 13
    end
    object cds_repreRAMAL: TStringField
      FieldName = 'RAMAL'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object cds_repreEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
  end
  object dst_fiador: TSQLDataSet
    CommandText = 
      'select fia.*'#13#10'        , cep.RUA   '#13#10'        , cep.COD_CEP '#13#10'from' +
      ' FIADOR fia '#13#10'left outer join CEP cep on '#13#10'cep.COD_CEP=fia.COD_E' +
      'NDERECO '#13#10'where COD_INQUILINO = :pcod '
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 8
    Top = 232
    object dst_fiadorCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object dst_fiadorCOD_FIADOR: TIntegerField
      FieldName = 'COD_FIADOR'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_fiadorNOME_FIADOR: TStringField
      FieldName = 'NOME_FIADOR'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object dst_fiadorCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_fiadorNUMERO: TStringField
      FieldName = 'NUMERO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_fiadorCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_fiadorFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_fiadorFONE1: TStringField
      FieldName = 'FONE1'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_fiadorFONE2: TStringField
      FieldName = 'FONE2'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_fiadorCPF_CPJ: TStringField
      FieldName = 'CPF_CPJ'
      ProviderFlags = [pfInUpdate]
    end
    object dst_fiadorRG_IE: TStringField
      FieldName = 'RG_IE'
      ProviderFlags = [pfInUpdate]
    end
    object dst_fiadorSEXO: TStringField
      FieldName = 'SEXO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_fiadorDATA_NASCIMENTO: TDateField
      FieldName = 'DATA_NASCIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_fiadorESTADO_CIVIL: TStringField
      FieldName = 'ESTADO_CIVIL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_fiadorREGIME_CASAMENTO: TStringField
      FieldName = 'REGIME_CASAMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_fiadorLOCAL_TRABALHO: TStringField
      FieldName = 'LOCAL_TRABALHO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object dst_fiadorFUNCAO: TStringField
      FieldName = 'FUNCAO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_fiadorSALARIO: TFloatField
      FieldName = 'SALARIO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_fiadorDATA_ADM: TDateField
      FieldName = 'DATA_ADM'
      ProviderFlags = [pfInUpdate]
    end
    object dst_fiadorFONE_TRABALHO: TStringField
      FieldName = 'FONE_TRABALHO'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_fiadorNOME_ESPOSA: TStringField
      FieldName = 'NOME_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object dst_fiadorCPF_ESPOSA: TStringField
      FieldName = 'CPF_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 14
    end
    object dst_fiadorRG_ESPOSA: TStringField
      FieldName = 'RG_ESPOSA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_fiadorLOCAL_TRABALHO_ESPOSA: TStringField
      FieldName = 'LOCAL_TRABALHO_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object dst_fiadorFUNCAO_ESPOSA: TStringField
      FieldName = 'FUNCAO_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_fiadorSALARIO_ESPOSA: TFloatField
      FieldName = 'SALARIO_ESPOSA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_fiadorDATA_ADM_ESPOSA: TDateField
      FieldName = 'DATA_ADM_ESPOSA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_fiadorFONE_TRABALHO_ESPOSA: TStringField
      FieldName = 'FONE_TRABALHO_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_fiadorTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_fiadorEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object dst_fiadorOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 340
    end
    object dst_fiadorCOD_CEP: TIntegerField
      FieldName = 'COD_CEP'
      ProviderFlags = []
    end
    object dst_fiadorBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object dst_fiadorCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_fiadorCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 9
    end
    object dst_fiadorUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object dst_fiadorRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
    object dst_fiadorDATA_NASC_ESPOSA: TDateField
      FieldName = 'DATA_NASC_ESPOSA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_fiadorGARANTIA: TStringField
      FieldName = 'GARANTIA'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
  end
  object dsp_fiador: TDataSetProvider
    DataSet = dst_fiador
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 72
    Top = 232
  end
  object cds_fiador: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_fiador'
    BeforePost = cds_fiadorBeforePost
    OnNewRecord = cds_fiadorNewRecord
    Left = 152
    Top = 232
    object cds_fiadorCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object cds_fiadorCOD_FIADOR: TIntegerField
      FieldName = 'COD_FIADOR'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_fiadorNOME_FIADOR: TStringField
      FieldName = 'NOME_FIADOR'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_fiadorCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_fiadorNUMERO: TStringField
      FieldName = 'NUMERO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_fiadorCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_fiadorFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 13
    end
    object cds_fiadorFONE1: TStringField
      FieldName = 'FONE1'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 13
    end
    object cds_fiadorFONE2: TStringField
      FieldName = 'FONE2'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 13
    end
    object cds_fiadorCPF_CPJ: TStringField
      FieldName = 'CPF_CPJ'
      ProviderFlags = [pfInUpdate]
    end
    object cds_fiadorRG_IE: TStringField
      FieldName = 'RG_IE'
      ProviderFlags = [pfInUpdate]
    end
    object cds_fiadorSEXO: TStringField
      FieldName = 'SEXO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_fiadorDATA_NASCIMENTO: TDateField
      FieldName = 'DATA_NASCIMENTO'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object cds_fiadorESTADO_CIVIL: TStringField
      FieldName = 'ESTADO_CIVIL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_fiadorREGIME_CASAMENTO: TStringField
      FieldName = 'REGIME_CASAMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_fiadorLOCAL_TRABALHO: TStringField
      FieldName = 'LOCAL_TRABALHO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_fiadorFUNCAO: TStringField
      FieldName = 'FUNCAO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_fiadorSALARIO: TFloatField
      FieldName = 'SALARIO'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_fiadorDATA_ADM: TDateField
      FieldName = 'DATA_ADM'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object cds_fiadorFONE_TRABALHO: TStringField
      FieldName = 'FONE_TRABALHO'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 13
    end
    object cds_fiadorNOME_ESPOSA: TStringField
      FieldName = 'NOME_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_fiadorCPF_ESPOSA: TStringField
      FieldName = 'CPF_ESPOSA'
      ProviderFlags = [pfInUpdate]
      EditMask = '999.999.999-99;1;_'
      Size = 14
    end
    object cds_fiadorRG_ESPOSA: TStringField
      FieldName = 'RG_ESPOSA'
      ProviderFlags = [pfInUpdate]
    end
    object cds_fiadorLOCAL_TRABALHO_ESPOSA: TStringField
      FieldName = 'LOCAL_TRABALHO_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_fiadorFUNCAO_ESPOSA: TStringField
      FieldName = 'FUNCAO_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_fiadorSALARIO_ESPOSA: TFloatField
      FieldName = 'SALARIO_ESPOSA'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_fiadorDATA_ADM_ESPOSA: TDateField
      FieldName = 'DATA_ADM_ESPOSA'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object cds_fiadorFONE_TRABALHO_ESPOSA: TStringField
      FieldName = 'FONE_TRABALHO_ESPOSA'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 13
    end
    object cds_fiadorTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_fiadorEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object cds_fiadorOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 340
    end
    object cds_fiadorCOD_CEP: TIntegerField
      FieldName = 'COD_CEP'
      ProviderFlags = []
    end
    object cds_fiadorBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object cds_fiadorCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_fiadorCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 9
    end
    object cds_fiadorUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object cds_fiadorRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
    object cds_fiadorDATA_NASC_ESPOSA: TDateField
      FieldName = 'DATA_NASC_ESPOSA'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object cds_fiadorGARANTIA: TStringField
      FieldName = 'GARANTIA'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
  end
  object dst_rep_fiador: TSQLDataSet
    CommandText = 'select * from REPRESENTANTE_FIADOR'#13#10'where COD_FIADOR =:pcod'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 8
    Top = 280
    object dst_rep_fiadorCOD_FIADOR: TIntegerField
      FieldName = 'COD_FIADOR'
      ProviderFlags = [pfInUpdate]
    end
    object dst_rep_fiadorCOD_REPRESENTANTE_FIADOR: TIntegerField
      FieldName = 'COD_REPRESENTANTE_FIADOR'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_rep_fiadorNOME_REPRESENTANTE: TStringField
      FieldName = 'NOME_REPRESENTANTE'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object dst_rep_fiadorFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_rep_fiadorCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_rep_fiadorRAMAL: TStringField
      FieldName = 'RAMAL'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_rep_fiadorCARGO: TStringField
      FieldName = 'CARGO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object dst_rep_fiadorSALARIO: TFloatField
      FieldName = 'SALARIO'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dsp_rep_fiador: TDataSetProvider
    DataSet = dst_rep_fiador
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 72
    Top = 280
  end
  object cds_rep_fiador: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_rep_fiador'
    BeforePost = cds_rep_fiadorBeforePost
    OnNewRecord = cds_rep_fiadorNewRecord
    Left = 152
    Top = 280
    object cds_rep_fiadorCOD_FIADOR: TIntegerField
      FieldName = 'COD_FIADOR'
      ProviderFlags = [pfInUpdate]
    end
    object cds_rep_fiadorCOD_REPRESENTANTE_FIADOR: TIntegerField
      FieldName = 'COD_REPRESENTANTE_FIADOR'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_rep_fiadorNOME_REPRESENTANTE: TStringField
      FieldName = 'NOME_REPRESENTANTE'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_rep_fiadorFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 13
    end
    object cds_rep_fiadorCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 13
    end
    object cds_rep_fiadorRAMAL: TStringField
      FieldName = 'RAMAL'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object cds_rep_fiadorCARGO: TStringField
      FieldName = 'CARGO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object cds_rep_fiadorSALARIO: TFloatField
      FieldName = 'SALARIO'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
  end
  object sds_cep: TSQLDataSet
    CommandText = 
      'select * from CEP'#13#10'where ((COD_CEP =:PCODIGO) or (:PCODIGO = 999' +
      '9999))'#13#10'order by RUA'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftUnknown
        Name = 'PCODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftUnknown
        Name = 'PCODIGO'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 4
    Top = 372
    object sds_cepCOD_CEP: TIntegerField
      FieldName = 'COD_CEP'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sds_cepRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object sds_cepBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object sds_cepCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_cepCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 9
    end
    object sds_cepUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
  end
  object dsp_cep: TDataSetProvider
    DataSet = sds_cep
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 68
    Top = 372
  end
  object cds_cep: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'PCODIGO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'PCODIGO'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_cep'
    BeforePost = cds_cepBeforePost
    OnNewRecord = cds_cepNewRecord
    Left = 145
    Top = 376
    object cds_cepCOD_CEP: TIntegerField
      FieldName = 'COD_CEP'
      Required = True
    end
    object cds_cepRUA: TStringField
      DisplayLabel = 'Endere'#231'o'
      FieldName = 'RUA'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object cds_cepBAIRRO: TStringField
      DisplayLabel = 'Bairro'
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object cds_cepCIDADE: TStringField
      DisplayLabel = 'Cidade'
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_cepCEP: TStringField
      FieldName = 'CEP'
      Size = 9
    end
    object cds_cepUF: TStringField
      FieldName = 'UF'
      Size = 2
    end
  end
  object sds_proprietario: TSQLDataSet
    CommandText = 
      'select pro.*, cep.rua'#13#10'from PROPRIETARIOS pro '#13#10'left outer join ' +
      'CEP cep on '#13#10'cep.COD_CEP=pro.COD_ENDERECO '#13#10'where ((COD_PROPRIET' +
      'ARIO = :PCOD_PROPRIETARIO) or (:PCOD_PROPRIETARIO = 9999999))'#13#10'o' +
      'rder by pro.NOME_PROPRIETARIO'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'PCOD_PROPRIETARIO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'PCOD_PROPRIETARIO'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 308
    Top = 2
    object sds_proprietarioCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sds_proprietarioNOME_PROPRIETARIO: TStringField
      FieldName = 'NOME_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object sds_proprietarioCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_proprietarioNUMERO: TStringField
      FieldName = 'NUMERO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_proprietarioCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_proprietarioFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object sds_proprietarioFONE1: TStringField
      FieldName = 'FONE1'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object sds_proprietarioFONE2: TStringField
      FieldName = 'FONE2'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object sds_proprietarioCPF_CPJ: TStringField
      FieldName = 'CPF_CPJ'
      ProviderFlags = [pfInUpdate]
    end
    object sds_proprietarioRG_IE: TStringField
      FieldName = 'RG_IE'
      ProviderFlags = [pfInUpdate]
    end
    object sds_proprietarioSEXO: TStringField
      FieldName = 'SEXO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_proprietarioDATA_NASCIMENTO: TDateField
      FieldName = 'DATA_NASCIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_proprietarioESTADO_CIVIL: TStringField
      FieldName = 'ESTADO_CIVIL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object sds_proprietarioREGIME_CASAMENTO: TStringField
      FieldName = 'REGIME_CASAMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_proprietarioPAI: TStringField
      FieldName = 'PAI'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object sds_proprietarioMAE: TStringField
      FieldName = 'MAE'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object sds_proprietarioNOME_ESPOSA: TStringField
      FieldName = 'NOME_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object sds_proprietarioCPF_ESPOSA: TStringField
      FieldName = 'CPF_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 14
    end
    object sds_proprietarioRG_ESPOSA: TStringField
      FieldName = 'RG_ESPOSA'
      ProviderFlags = [pfInUpdate]
    end
    object sds_proprietarioTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_proprietarioEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object sds_proprietarioOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 340
    end
    object sds_proprietarioRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
    object sds_proprietarioDATANASCESP: TDateField
      FieldName = 'DATANASCESP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_proprietarioCARGO: TStringField
      FieldName = 'CARGO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object sds_proprietarioLOCAL_TRABALHO: TStringField
      FieldName = 'LOCAL_TRABALHO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object sds_proprietarioNACIONALIDADE: TStringField
      FieldName = 'NACIONALIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object sds_proprietarioALUGOU: TStringField
      FieldName = 'ALUGOU'
      Size = 1
    end
    object sds_proprietarioCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object sds_proprietarioBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object sds_proprietarioCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_proprietarioUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
  end
  object dsp_proprietario: TDataSetProvider
    DataSet = sds_proprietario
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 372
    Top = 2
  end
  object cds_proprietario: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'PCOD_PROPRIETARIO'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'PCOD_PROPRIETARIO'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_proprietario'
    BeforePost = cds_proprietarioBeforePost
    OnNewRecord = cds_proprietarioNewRecord
    Left = 452
    Top = 2
    object cds_proprietarioCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_proprietarioNOME_PROPRIETARIO: TStringField
      FieldName = 'NOME_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_proprietarioCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_proprietarioNUMERO: TStringField
      FieldName = 'NUMERO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_proprietarioCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_proprietarioFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object cds_proprietarioFONE1: TStringField
      FieldName = 'FONE1'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object cds_proprietarioFONE2: TStringField
      FieldName = 'FONE2'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object cds_proprietarioCPF_CPJ: TStringField
      FieldName = 'CPF_CPJ'
      ProviderFlags = [pfInUpdate]
    end
    object cds_proprietarioRG_IE: TStringField
      FieldName = 'RG_IE'
      ProviderFlags = [pfInUpdate]
    end
    object cds_proprietarioSEXO: TStringField
      FieldName = 'SEXO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_proprietarioDATA_NASCIMENTO: TDateField
      FieldName = 'DATA_NASCIMENTO'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object cds_proprietarioESTADO_CIVIL: TStringField
      FieldName = 'ESTADO_CIVIL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_proprietarioREGIME_CASAMENTO: TStringField
      FieldName = 'REGIME_CASAMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_proprietarioPAI: TStringField
      FieldName = 'PAI'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_proprietarioMAE: TStringField
      FieldName = 'MAE'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_proprietarioNOME_ESPOSA: TStringField
      FieldName = 'NOME_ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_proprietarioCPF_ESPOSA: TStringField
      FieldName = 'CPF_ESPOSA'
      ProviderFlags = [pfInUpdate]
      EditMask = '999.999.999-99;1;_'
      Size = 14
    end
    object cds_proprietarioRG_ESPOSA: TStringField
      FieldName = 'RG_ESPOSA'
      ProviderFlags = [pfInUpdate]
    end
    object cds_proprietarioTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_proprietarioEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object cds_proprietarioOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 340
    end
    object cds_proprietarioRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
    object cds_proprietarioDATANASCESP: TDateField
      FieldName = 'DATANASCESP'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object cds_proprietarioCARGO: TStringField
      FieldName = 'CARGO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object cds_proprietarioLOCAL_TRABALHO: TStringField
      FieldName = 'LOCAL_TRABALHO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object cds_proprietarioNACIONALIDADE: TStringField
      FieldName = 'NACIONALIDADE'
      ProviderFlags = [pfInUpdate]
    end
    object cds_proprietarioALUGOU: TStringField
      FieldName = 'ALUGOU'
      Size = 1
    end
    object cds_proprietarioCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_proprietarioBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_proprietarioCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_proprietarioUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
  end
  object sds_rep_pro: TSQLDataSet
    CommandText = 
      'select *  from REPRESENTANTE_PROPRIETARIO'#13#10'where ((COD_PROPRIETA' +
      'RIO=:prep) or (:prep = 9999999))'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'prep'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'prep'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 308
    Top = 49
    object sds_rep_proCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_rep_proCOD_REPR_PROPRIETARIO: TIntegerField
      FieldName = 'COD_REPR_PROPRIETARIO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sds_rep_proNOME_REPRESENTANTE: TStringField
      FieldName = 'NOME_REPRESENTANTE'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object sds_rep_proCPF: TStringField
      FieldName = 'CPF'
      ProviderFlags = [pfInUpdate]
      Size = 14
    end
    object sds_rep_proRG: TStringField
      FieldName = 'RG'
      ProviderFlags = [pfInUpdate]
    end
    object sds_rep_proESTADOCIVIL: TStringField
      FieldName = 'ESTADOCIVIL'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_rep_proREGCASAMENTO: TStringField
      FieldName = 'REGCASAMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object sds_rep_proCARGO: TStringField
      FieldName = 'CARGO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_rep_proFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object sds_rep_proCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object sds_rep_proRAMAL: TStringField
      FieldName = 'RAMAL'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
  end
  object dsp_rep_pro: TDataSetProvider
    DataSet = sds_rep_pro
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 372
    Top = 49
  end
  object cds_rep_pro: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'prep'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'prep'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_rep_pro'
    BeforePost = cds_rep_proBeforePost
    OnNewRecord = cds_rep_proNewRecord
    Left = 452
    Top = 49
    object cds_rep_proCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_rep_proCOD_REPR_PROPRIETARIO: TIntegerField
      FieldName = 'COD_REPR_PROPRIETARIO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cds_rep_proNOME_REPRESENTANTE: TStringField
      FieldName = 'NOME_REPRESENTANTE'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_rep_proCPF: TStringField
      FieldName = 'CPF'
      ProviderFlags = [pfInUpdate]
      EditMask = '999.999.999-99;1;_'
      Size = 14
    end
    object cds_rep_proRG: TStringField
      FieldName = 'RG'
      ProviderFlags = [pfInUpdate]
    end
    object cds_rep_proESTADOCIVIL: TStringField
      FieldName = 'ESTADOCIVIL'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_rep_proREGCASAMENTO: TStringField
      FieldName = 'REGCASAMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_rep_proCARGO: TStringField
      FieldName = 'CARGO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_rep_proFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 13
    end
    object cds_rep_proCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 13
    end
    object cds_rep_proRAMAL: TStringField
      FieldName = 'RAMAL'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
  end
  object proc_proprietario: TSQLClientDataSet
    CommandText = 
      'select COD_PROPRIETARIO, NOME_PROPRIETARIO from PROPRIETARIOS '#13#10 +
      'where NOME_PROPRIETARIO like :PNOME '#13#10'order by NOME_PROPRIETARIO'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'PNOME'
        ParamType = ptInput
      end>
    DBConnection = scSge
    Left = 532
    Top = 2
    object proc_proprietarioCOD_PROPRIETARIO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'COD_PROPRIETARIO'
      Required = True
    end
    object proc_proprietarioNOME_PROPRIETARIO: TStringField
      DisplayLabel = 'Nome do Propriet'#225'rio'
      FieldName = 'NOME_PROPRIETARIO'
      Size = 60
    end
  end
  object proc_cep: TSQLClientDataSet
    CommandText = 'select * from CEP '#13#10'where RUA like :pnome '#13#10'order by RUA'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pnome'
        ParamType = ptInput
      end>
    DBConnection = scSge
    Left = 226
    Top = 92
    object proc_cepCOD_CEP: TIntegerField
      FieldName = 'COD_CEP'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Visible = False
    end
    object proc_cepRUA: TStringField
      DisplayLabel = 'Endere'#231'o'
      FieldName = 'RUA'
      Size = 50
    end
    object proc_cepUF: TStringField
      FieldName = 'UF'
      Visible = False
      Size = 2
    end
    object proc_cepCEP: TStringField
      FieldName = 'CEP'
      Visible = False
      Size = 9
    end
  end
  object dst_cliente: TSQLDataSet
    CommandText = 
      'select cli.*, cep.rua, cep.COD_CEP '#13#10'from CLIENTE cli '#13#10'left out' +
      'er join CEP cep on '#13#10'cep.COD_CEP=cli.COD_ENDERECO '#13#10'where COD_CL' +
      'IENTE = :Pcod'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'Pcod'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 308
    Top = 97
    object dst_clienteCOD_CLIENTE: TIntegerField
      FieldName = 'COD_CLIENTE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_clienteCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_clienteNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_clienteNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_clienteCOMPL: TStringField
      FieldName = 'COMPL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_clienteFONE: TStringField
      FieldName = 'FONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_clienteFONE1: TStringField
      FieldName = 'FONE1'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_clienteFAX: TStringField
      FieldName = 'FAX'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_clienteDATANASC: TDateField
      FieldName = 'DATANASC'
      ProviderFlags = [pfInUpdate]
    end
    object dst_clienteCPF_CNPJ: TStringField
      FieldName = 'CPF_CNPJ'
      ProviderFlags = [pfInUpdate]
    end
    object dst_clienteRG_IE: TStringField
      FieldName = 'RG_IE'
      ProviderFlags = [pfInUpdate]
    end
    object dst_clienteESTADOCIVIL: TStringField
      FieldName = 'ESTADOCIVIL'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_clienteREGCASAMENTO: TStringField
      FieldName = 'REGCASAMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_clientePAI: TStringField
      FieldName = 'PAI'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_clienteMAE: TStringField
      FieldName = 'MAE'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_clienteOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
    object dst_clienteTRABALHO: TStringField
      FieldName = 'TRABALHO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_clienteSALARIO: TFloatField
      FieldName = 'SALARIO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_clienteCARGO: TStringField
      FieldName = 'CARGO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object dst_clienteDATAADM: TDateField
      FieldName = 'DATAADM'
      ProviderFlags = [pfInUpdate]
    end
    object dst_clienteFONETRAB: TStringField
      FieldName = 'FONETRAB'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_clienteESPOSA: TStringField
      FieldName = 'ESPOSA'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_clienteNASCESP: TDateField
      FieldName = 'NASCESP'
      ProviderFlags = [pfInUpdate]
    end
    object dst_clienteCPFESP: TStringField
      FieldName = 'CPFESP'
      ProviderFlags = [pfInUpdate]
      Size = 14
    end
    object dst_clienteRGESP: TStringField
      FieldName = 'RGESP'
      ProviderFlags = [pfInUpdate]
      Size = 25
    end
    object dst_clienteTRABESP: TStringField
      FieldName = 'TRABESP'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_clienteSALARIOESP: TFloatField
      FieldName = 'SALARIOESP'
      ProviderFlags = [pfInUpdate]
    end
    object dst_clienteCARGOESP: TStringField
      FieldName = 'CARGOESP'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object dst_clienteADMESP: TDateField
      FieldName = 'ADMESP'
      ProviderFlags = [pfInUpdate]
    end
    object dst_clienteTELTRABESP: TStringField
      FieldName = 'TELTRABESP'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_clienteEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object dst_clienteTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_clienteCOMPROU: TStringField
      FieldName = 'COMPROU'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object dst_clienteUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object dst_clienteCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_clienteCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object dst_clienteBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object dst_clienteRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
  end
  object dsp_cliente: TDataSetProvider
    DataSet = dst_cliente
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 372
    Top = 97
  end
  object cds_cliente: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'Pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_cliente'
    BeforePost = cds_clienteBeforePost
    OnNewRecord = cds_clienteNewRecord
    Left = 452
    Top = 97
    object cds_clienteCOD_CLIENTE: TIntegerField
      FieldName = 'COD_CLIENTE'
    end
    object cds_clienteCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
    end
    object cds_clienteNOME: TStringField
      FieldName = 'NOME'
      Size = 50
    end
    object cds_clienteNR: TStringField
      FieldName = 'NR'
      Size = 10
    end
    object cds_clienteCOMPL: TStringField
      FieldName = 'COMPL'
      Size = 15
    end
    object cds_clienteFONE: TStringField
      FieldName = 'FONE'
      Size = 13
    end
    object cds_clienteFONE1: TStringField
      FieldName = 'FONE1'
      Size = 13
    end
    object cds_clienteFAX: TStringField
      FieldName = 'FAX'
      Size = 13
    end
    object cds_clienteDATANASC: TDateField
      FieldName = 'DATANASC'
      EditMask = '!99/99/0000;1;_'
    end
    object cds_clienteCPF_CNPJ: TStringField
      FieldName = 'CPF_CNPJ'
    end
    object cds_clienteRG_IE: TStringField
      FieldName = 'RG_IE'
    end
    object cds_clienteESTADOCIVIL: TStringField
      FieldName = 'ESTADOCIVIL'
      Size = 10
    end
    object cds_clienteREGCASAMENTO: TStringField
      FieldName = 'REGCASAMENTO'
      Size = 30
    end
    object cds_clientePAI: TStringField
      FieldName = 'PAI'
      Size = 50
    end
    object cds_clienteMAE: TStringField
      FieldName = 'MAE'
      Size = 50
    end
    object cds_clienteOBS: TStringField
      FieldName = 'OBS'
      Size = 200
    end
    object cds_clienteTRABALHO: TStringField
      FieldName = 'TRABALHO'
      Size = 50
    end
    object cds_clienteSALARIO: TFloatField
      FieldName = 'SALARIO'
      DisplayFormat = ',#0.00'
    end
    object cds_clienteCARGO: TStringField
      FieldName = 'CARGO'
      Size = 40
    end
    object cds_clienteDATAADM: TDateField
      FieldName = 'DATAADM'
      EditMask = '!99/99/00;1;_'
    end
    object cds_clienteFONETRAB: TStringField
      FieldName = 'FONETRAB'
      Size = 13
    end
    object cds_clienteESPOSA: TStringField
      FieldName = 'ESPOSA'
      Size = 50
    end
    object cds_clienteNASCESP: TDateField
      FieldName = 'NASCESP'
      EditMask = '!99/99/0000;1;_'
    end
    object cds_clienteCPFESP: TStringField
      FieldName = 'CPFESP'
      EditMask = '000.000.000-00;1;_'
      Size = 14
    end
    object cds_clienteRGESP: TStringField
      FieldName = 'RGESP'
      Size = 25
    end
    object cds_clienteTRABESP: TStringField
      FieldName = 'TRABESP'
      Size = 50
    end
    object cds_clienteSALARIOESP: TFloatField
      FieldName = 'SALARIOESP'
      DisplayFormat = ',#0.00'
    end
    object cds_clienteCARGOESP: TStringField
      FieldName = 'CARGOESP'
      Size = 40
    end
    object cds_clienteADMESP: TDateField
      FieldName = 'ADMESP'
      EditMask = '!99/99/0000;1;_'
    end
    object cds_clienteTELTRABESP: TStringField
      FieldName = 'TELTRABESP'
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 13
    end
    object cds_clienteEMAIL: TStringField
      FieldName = 'EMAIL'
      Size = 100
    end
    object cds_clienteTIPO: TStringField
      FieldName = 'TIPO'
      Size = 15
    end
    object cds_clienteCOMPROU: TStringField
      FieldName = 'COMPROU'
      Size = 1
    end
    object cds_clienteUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object cds_clienteCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_clienteCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_clienteBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_clienteRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
  end
  object proc_cliente: TSQLClientDataSet
    CommandText = 
      'select COD_CLIENTE, NOME '#13#10'from CLIENTE '#13#10'where NOME like :pnome' +
      ' '#13#10'order by NOME'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pnome'
        ParamType = ptInput
      end>
    DBConnection = scSge
    Left = 516
    Top = 97
    object proc_clienteCOD_CLIENTE: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'COD_CLIENTE'
      Required = True
    end
    object proc_clienteNOME: TStringField
      DisplayLabel = 'Nome do Cliente'
      FieldName = 'NOME'
      Size = 50
    end
  end
  object dst_repcli: TSQLDataSet
    CommandText = 
      'select repcli.*, cep.*'#13#10'from REP_CLIENTE repcli '#13#10'left outer joi' +
      'n CEP cep on '#13#10'cep.COD_CEP=repcli.COD_ENDERECO '#13#10'where COD_CLIEN' +
      'TE = :pcod'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 308
    Top = 142
    object dst_repcliCOD_REP_CLI: TIntegerField
      FieldName = 'COD_REP_CLI'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_repcliCOD_CLIENTE: TIntegerField
      FieldName = 'COD_CLIENTE'
      ProviderFlags = [pfInUpdate]
    end
    object dst_repcliCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_repcliNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_repcliCPF: TStringField
      FieldName = 'CPF'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_repcliRG: TStringField
      FieldName = 'RG'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_repcliDTANASSC: TStringField
      FieldName = 'DTANASSC'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_repcliESTCIVIL: TStringField
      FieldName = 'ESTCIVIL'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_repcliREGIME: TStringField
      FieldName = 'REGIME'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_repcliCARGO: TStringField
      FieldName = 'CARGO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_repcliTEL: TStringField
      FieldName = 'TEL'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_repcliCEL: TStringField
      FieldName = 'CEL'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_repcliCOD_CEP: TIntegerField
      FieldName = 'COD_CEP'
      ProviderFlags = []
    end
    object dst_repcliBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = []
      Size = 35
    end
    object dst_repcliCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = []
      Size = 30
    end
    object dst_repcliCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = []
      Size = 9
    end
    object dst_repcliUF: TStringField
      FieldName = 'UF'
      ProviderFlags = []
      Size = 2
    end
    object dst_repcliRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
    object dst_repcliNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
  end
  object dsp_repcli: TDataSetProvider
    DataSet = dst_repcli
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 372
    Top = 142
  end
  object cds_repcli: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_repcli'
    BeforePost = cds_repcliBeforePost
    OnNewRecord = cds_repcliNewRecord
    Left = 452
    Top = 142
    object cds_repcliCOD_REP_CLI: TIntegerField
      FieldName = 'COD_REP_CLI'
    end
    object cds_repcliCOD_CLIENTE: TIntegerField
      FieldName = 'COD_CLIENTE'
    end
    object cds_repcliCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
    end
    object cds_repcliNOME: TStringField
      FieldName = 'NOME'
      Size = 50
    end
    object cds_repcliCPF: TStringField
      FieldName = 'CPF'
      EditMask = '999.999.999-99;1;_'
      Size = 50
    end
    object cds_repcliRG: TStringField
      FieldName = 'RG'
      Size = 50
    end
    object cds_repcliDTANASSC: TStringField
      FieldName = 'DTANASSC'
      EditMask = '!99/99/00;1;_'
      Size = 50
    end
    object cds_repcliESTCIVIL: TStringField
      FieldName = 'ESTCIVIL'
      Size = 50
    end
    object cds_repcliREGIME: TStringField
      FieldName = 'REGIME'
      Size = 50
    end
    object cds_repcliCARGO: TStringField
      FieldName = 'CARGO'
      Size = 50
    end
    object cds_repcliTEL: TStringField
      FieldName = 'TEL'
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 50
    end
    object cds_repcliCEL: TStringField
      FieldName = 'CEL'
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 50
    end
    object cds_repcliCOD_CEP: TIntegerField
      FieldName = 'COD_CEP'
    end
    object cds_repcliBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Size = 35
    end
    object cds_repcliCIDADE: TStringField
      FieldName = 'CIDADE'
      Size = 30
    end
    object cds_repcliCEP: TStringField
      FieldName = 'CEP'
      Size = 9
    end
    object cds_repcliUF: TStringField
      FieldName = 'UF'
      Size = 2
    end
    object cds_repcliRUA: TStringField
      FieldName = 'RUA'
      Size = 50
    end
    object cds_repcliNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
  end
  object dst_funcionario: TSQLDataSet
    CommandText = 
      'select * from FUNCIONARIOS '#13#10'where ((COD_FUNCIONARIO = :pcod) or' +
      ' (:pcod = 9999999))'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 308
    Top = 185
    object dst_funcionarioCOD_FUNCIONARIO: TIntegerField
      FieldName = 'COD_FUNCIONARIO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_funcionarioNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_funcionarioENDERECO: TStringField
      FieldName = 'ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_funcionarioNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_funcionarioCOMPL: TStringField
      FieldName = 'COMPL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_funcionarioBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object dst_funcionarioCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object dst_funcionarioUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object dst_funcionarioCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_funcionarioTELEFONE: TStringField
      FieldName = 'TELEFONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_funcionarioCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_funcionarioDATANASC: TDateField
      FieldName = 'DATANASC'
      ProviderFlags = [pfInUpdate]
    end
    object dst_funcionarioCPF: TStringField
      FieldName = 'CPF'
      ProviderFlags = [pfInUpdate]
      Size = 14
    end
    object dst_funcionarioRG: TStringField
      FieldName = 'RG'
      ProviderFlags = [pfInUpdate]
      Size = 25
    end
    object dst_funcionarioPAI: TStringField
      FieldName = 'PAI'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_funcionarioMAE: TStringField
      FieldName = 'MAE'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_funcionarioOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
    object dst_funcionarioCOMISSAO: TFloatField
      FieldName = 'COMISSAO'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dsp_funcionario: TDataSetProvider
    DataSet = dst_funcionario
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 372
    Top = 185
  end
  object cds_funcionario: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_funcionario'
    BeforePost = cds_funcionarioBeforePost
    OnNewRecord = cds_funcionarioNewRecord
    Left = 452
    Top = 185
    object cds_funcionarioCOD_FUNCIONARIO: TIntegerField
      FieldName = 'COD_FUNCIONARIO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      DisplayFormat = '000'
    end
    object cds_funcionarioNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_funcionarioENDERECO: TStringField
      FieldName = 'ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_funcionarioNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_funcionarioCOMPL: TStringField
      FieldName = 'COMPL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_funcionarioBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object cds_funcionarioCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object cds_funcionarioUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object cds_funcionarioCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_funcionarioTELEFONE: TStringField
      FieldName = 'TELEFONE'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object cds_funcionarioCELULAR: TStringField
      FieldName = 'CELULAR'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object cds_funcionarioDATANASC: TDateField
      FieldName = 'DATANASC'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/00;1;_'
    end
    object cds_funcionarioCPF: TStringField
      FieldName = 'CPF'
      ProviderFlags = [pfInUpdate]
      EditMask = '999.999.999-99;1;_'
      Size = 14
    end
    object cds_funcionarioRG: TStringField
      FieldName = 'RG'
      ProviderFlags = [pfInUpdate]
      Size = 25
    end
    object cds_funcionarioPAI: TStringField
      FieldName = 'PAI'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_funcionarioMAE: TStringField
      FieldName = 'MAE'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object cds_funcionarioOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
    object cds_funcionarioCOMISSAO: TFloatField
      FieldName = 'COMISSAO'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dst_interessado: TSQLDataSet
    CommandText = 
      'select inte.*, cep.* '#13#10'from INTERESSADO inte '#13#10'left outer join C' +
      'EP cep on '#13#10'cep.COD_CEP=inte.COD_ENDERECO '#13#10'where COD_INTERESSAD' +
      'O = :Pcod'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'Pcod'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 276
    Top = 229
    object dst_interessadoCOD_INTERESSADO: TIntegerField
      FieldName = 'COD_INTERESSADO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_interessadoNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object dst_interessadoCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_interessadoNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_interessadoCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_interessadoTEL1: TStringField
      FieldName = 'TEL1'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_interessadoTEL2: TStringField
      FieldName = 'TEL2'
      ProviderFlags = [pfInUpdate]
      Size = 13
    end
    object dst_interessadoIMOVEL: TStringField
      FieldName = 'IMOVEL'
      ProviderFlags = [pfInUpdate]
    end
    object dst_interessadoIMOVELDE: TStringField
      FieldName = 'IMOVELDE'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_interessadoTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_interessadoBAIRROIMOVEL: TStringField
      FieldName = 'BAIRROIMOVEL'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object dst_interessadoVALOR: TFloatField
      FieldName = 'VALOR'
      ProviderFlags = [pfInUpdate]
    end
    object dst_interessadoN_QUARTOS: TStringField
      FieldName = 'N_QUARTOS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_interessadoN_SALAS: TStringField
      FieldName = 'N_SALAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_interessadoN_COZINHAS: TStringField
      FieldName = 'N_COZINHAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_interessadoN_GARAGENS: TStringField
      FieldName = 'N_GARAGENS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_interessadoATENDIDO: TStringField
      FieldName = 'ATENDIDO'
      ProviderFlags = [pfInUpdate]
      Size = 3
    end
    object dst_interessadoCOD_CEP: TIntegerField
      FieldName = 'COD_CEP'
      ProviderFlags = [pfInUpdate]
    end
    object dst_interessadoBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = []
      Size = 35
    end
    object dst_interessadoCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = []
      Size = 30
    end
    object dst_interessadoCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = []
      Size = 9
    end
    object dst_interessadoUF: TStringField
      FieldName = 'UF'
      ProviderFlags = []
      Size = 2
    end
    object dst_interessadoRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
    object dst_interessadoCPF: TStringField
      FieldName = 'CPF'
      ProviderFlags = [pfInUpdate]
    end
    object dst_interessadoRG: TStringField
      FieldName = 'RG'
      ProviderFlags = [pfInUpdate]
    end
    object dst_interessadoEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object dst_interessadoDATA_CADASTRO: TDateField
      FieldName = 'DATA_CADASTRO'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object dst_interessadoOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object dst_interessadoCIDADEIMOVEL: TStringField
      FieldName = 'CIDADEIMOVEL'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object dst_interessadoRUAIMOVEL: TStringField
      FieldName = 'RUAIMOVEL'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
  end
  object dsp_interessado: TDataSetProvider
    DataSet = dst_interessado
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 372
    Top = 229
  end
  object cds_interessado: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'Pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_interessado'
    BeforePost = cds_interessadoBeforePost
    OnNewRecord = cds_interessadoNewRecord
    Left = 468
    Top = 229
    object cds_interessadoCOD_INTERESSADO: TIntegerField
      FieldName = 'COD_INTERESSADO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_interessadoNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_interessadoCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_interessadoNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_interessadoCOMPLEMENTO: TStringField
      FieldName = 'COMPLEMENTO'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_interessadoTEL1: TStringField
      FieldName = 'TEL1'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 13
    end
    object cds_interessadoTEL2: TStringField
      FieldName = 'TEL2'
      ProviderFlags = [pfInUpdate]
      EditMask = '!\(99\)9999-9999;1;_'
      Size = 13
    end
    object cds_interessadoIMOVEL: TStringField
      FieldName = 'IMOVEL'
      ProviderFlags = [pfInUpdate]
    end
    object cds_interessadoIMOVELDE: TStringField
      FieldName = 'IMOVELDE'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_interessadoTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_interessadoBAIRROIMOVEL: TStringField
      FieldName = 'BAIRROIMOVEL'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object cds_interessadoVALOR: TFloatField
      FieldName = 'VALOR'
      ProviderFlags = [pfInUpdate]
    end
    object cds_interessadoN_QUARTOS: TStringField
      FieldName = 'N_QUARTOS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_interessadoN_SALAS: TStringField
      FieldName = 'N_SALAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_interessadoN_COZINHAS: TStringField
      FieldName = 'N_COZINHAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_interessadoN_GARAGENS: TStringField
      FieldName = 'N_GARAGENS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_interessadoATENDIDO: TStringField
      FieldName = 'ATENDIDO'
      ProviderFlags = [pfInUpdate]
      Size = 3
    end
    object cds_interessadoCOD_CEP: TIntegerField
      FieldName = 'COD_CEP'
      ProviderFlags = [pfInUpdate]
    end
    object cds_interessadoBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = []
      Size = 35
    end
    object cds_interessadoCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = []
      Size = 30
    end
    object cds_interessadoCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = []
      Size = 9
    end
    object cds_interessadoUF: TStringField
      FieldName = 'UF'
      ProviderFlags = []
      Size = 2
    end
    object cds_interessadoRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
    object cds_interessadoCPF: TStringField
      FieldName = 'CPF'
      ProviderFlags = [pfInUpdate]
      EditMask = '000.000.000-00;1;_'
    end
    object cds_interessadoRG: TStringField
      FieldName = 'RG'
      ProviderFlags = [pfInUpdate]
    end
    object cds_interessadoEMAIL: TStringField
      FieldName = 'EMAIL'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_interessadoDATA_CADASTRO: TDateField
      FieldName = 'DATA_CADASTRO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_interessadoOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 300
    end
    object cds_interessadoCIDADEIMOVEL: TStringField
      FieldName = 'CIDADEIMOVEL'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_interessadoRUAIMOVEL: TStringField
      FieldName = 'RUAIMOVEL'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
  end
  object dst_imo_aluguel: TSQLDataSet
    CommandText = 
      'select ima.*, cep.rua, pro.NOME_PROPRIETARIO, inc.NOME_INQUILINO' +
      ', '#13#10'fun.NOME '#13#10'from IMOVEL_ALUGUEL ima '#13#10'left outer join CEP cep' +
      ' on '#13#10'cep.COD_CEP=ima.COD_ENDERECO '#13#10'left outer join PROPRIETARI' +
      'OS pro on '#13#10'pro.COD_PROPRIETARIO = ima.COD_PROPRIETARIO '#13#10'left o' +
      'uter join INQUILINOS inc on '#13#10'inc.COD_INQUILINO = ima.COD_INQUIL' +
      'INO '#13#10'left outer join FUNCIONARIOS fun on '#13#10'fun.COD_FUNCIONARIO ' +
      '= ima.COD_FUNCIONARIO '#13#10'where COD_IMALU = :Pcod'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'Pcod'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 297
    Top = 274
    object dst_imo_aluguelCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_imo_aluguelIMOVEL: TStringField
      FieldName = 'IMOVEL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_imo_aluguelTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelCOD_FUNCIONARIO: TIntegerField
      FieldName = 'COD_FUNCIONARIO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_imo_aluguelCOMPL: TStringField
      FieldName = 'COMPL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_imo_aluguelMATRICULA: TStringField
      FieldName = 'MATRICULA'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_imo_aluguelDATA_REGISTRO: TDateField
      FieldName = 'DATA_REGISTRO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelDETALHES: TStringField
      FieldName = 'DETALHES'
      ProviderFlags = [pfInUpdate]
      Size = 150
    end
    object dst_imo_aluguelVALOR_ALUGUEL: TFloatField
      FieldName = 'VALOR_ALUGUEL'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelVALOR_EXTENCO: TStringField
      FieldName = 'VALOR_EXTENCO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object dst_imo_aluguelALUGADO: TStringField
      FieldName = 'ALUGADO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object dst_imo_aluguelMESES: TStringField
      FieldName = 'MESES'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object dst_imo_aluguelDIAPGTO: TStringField
      FieldName = 'DIAPGTO'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object dst_imo_aluguelCARENCIA: TStringField
      FieldName = 'CARENCIA'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object dst_imo_aluguelDATA_AQUIZICAO: TStringField
      FieldName = 'DATA_AQUIZICAO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_imo_aluguelDATA_LOCACAO: TStringField
      FieldName = 'DATA_LOCACAO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_imo_aluguelDATA_VCONTRATO: TStringField
      FieldName = 'DATA_VCONTRATO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_imo_aluguelN_QUARTOS: TStringField
      FieldName = 'N_QUARTOS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_imo_aluguelN_SALAS: TStringField
      FieldName = 'N_SALAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_imo_aluguelN_COZINHAS: TStringField
      FieldName = 'N_COZINHAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_imo_aluguelN_GARAGENS: TStringField
      FieldName = 'N_GARAGENS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_imo_aluguelOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
    object dst_imo_aluguelCOMISSAO_IMOBILIARIA: TFloatField
      FieldName = 'COMISSAO_IMOBILIARIA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
    object dst_imo_aluguelNOME_PROPRIETARIO: TStringField
      FieldName = 'NOME_PROPRIETARIO'
      ProviderFlags = []
      Size = 60
    end
    object dst_imo_aluguelNOME_INQUILINO: TStringField
      FieldName = 'NOME_INQUILINO'
      ProviderFlags = []
      Size = 60
    end
    object dst_imo_aluguelNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = []
      Size = 50
    end
    object dst_imo_aluguelCOD_IMOBILIARIA: TStringField
      FieldName = 'COD_IMOBILIARIA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_imo_aluguelDATA_LOCA: TDateField
      FieldName = 'DATA_LOCA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelDATA_VCONT: TDateField
      FieldName = 'DATA_VCONT'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelATIVO: TStringField
      FieldName = 'ATIVO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object dst_imo_aluguelPORCENTUAL: TFloatField
      FieldName = 'PORCENTUAL'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelTAXA_ADM: TFloatField
      FieldName = 'TAXA_ADM'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelMETRAGEM: TStringField
      FieldName = 'METRAGEM'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_imo_aluguelBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object dst_imo_aluguelCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object dst_imo_aluguelCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_imo_aluguelUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object dst_imo_aluguelVISITA: TStringField
      FieldName = 'VISITA'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 3
    end
    object dst_imo_aluguelDATAVISITA: TDateField
      FieldName = 'DATAVISITA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelCOD_INTERESSADO: TIntegerField
      FieldName = 'COD_INTERESSADO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelPRAZO_REPASSE: TIntegerField
      FieldName = 'PRAZO_REPASSE'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelFORMA_REPASSE: TStringField
      FieldName = 'FORMA_REPASSE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_imo_aluguelFORMA_RECEBE: TStringField
      FieldName = 'FORMA_RECEBE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_imo_aluguelDIA: TIntegerField
      FieldName = 'DIA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelMES: TIntegerField
      FieldName = 'MES'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelANO: TIntegerField
      FieldName = 'ANO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelP_INICIAL: TIntegerField
      FieldName = 'P_INICIAL'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_aluguelIRRF: TStringField
      FieldName = 'IRRF'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
  end
  object dsp_imo_aluguel: TDataSetProvider
    DataSet = dst_imo_aluguel
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnUpdateError = dsp_imo_aluguelUpdateError
    OnGetDataSetProperties = DSPGetProproperties
    Left = 380
    Top = 274
  end
  object cds_imo_aluguel: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'Pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_imo_aluguel'
    BeforePost = cds_imo_aluguelBeforePost
    OnNewRecord = cds_imo_aluguelNewRecord
    Left = 470
    Top = 274
    object cds_imo_aluguelCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      DisplayFormat = '000'
    end
    object cds_imo_aluguelIMOVEL: TStringField
      FieldName = 'IMOVEL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_imo_aluguelCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelCOD_FUNCIONARIO: TIntegerField
      FieldName = 'COD_FUNCIONARIO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_imo_aluguelTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelCOMPL: TStringField
      FieldName = 'COMPL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_imo_aluguelMATRICULA: TStringField
      FieldName = 'MATRICULA'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_imo_aluguelDATA_REGISTRO: TDateField
      FieldName = 'DATA_REGISTRO'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/00;1;_'
    end
    object cds_imo_aluguelDETALHES: TStringField
      FieldName = 'DETALHES'
      ProviderFlags = [pfInUpdate]
      Size = 150
    end
    object cds_imo_aluguelVALOR_ALUGUEL: TFloatField
      FieldName = 'VALOR_ALUGUEL'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_imo_aluguelVALOR_EXTENCO: TStringField
      FieldName = 'VALOR_EXTENCO'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object cds_imo_aluguelALUGADO: TStringField
      FieldName = 'ALUGADO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object cds_imo_aluguelMESES: TStringField
      FieldName = 'MESES'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object cds_imo_aluguelDIAPGTO: TStringField
      FieldName = 'DIAPGTO'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object cds_imo_aluguelCARENCIA: TStringField
      FieldName = 'CARENCIA'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object cds_imo_aluguelDATA_AQUIZICAO: TStringField
      FieldName = 'DATA_AQUIZICAO'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/00;1;_'
      Size = 10
    end
    object cds_imo_aluguelDATA_LOCACAO: TStringField
      FieldName = 'DATA_LOCACAO'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/00;1;_'
      Size = 10
    end
    object cds_imo_aluguelDATA_VCONTRATO: TStringField
      FieldName = 'DATA_VCONTRATO'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/00;1;_'
      Size = 10
    end
    object cds_imo_aluguelN_QUARTOS: TStringField
      FieldName = 'N_QUARTOS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_imo_aluguelN_SALAS: TStringField
      FieldName = 'N_SALAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_imo_aluguelN_COZINHAS: TStringField
      FieldName = 'N_COZINHAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_imo_aluguelN_GARAGENS: TStringField
      FieldName = 'N_GARAGENS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_imo_aluguelOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
    object cds_imo_aluguelCOMISSAO_IMOBILIARIA: TFloatField
      FieldName = 'COMISSAO_IMOBILIARIA'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
    object cds_imo_aluguelNOME_PROPRIETARIO: TStringField
      FieldName = 'NOME_PROPRIETARIO'
      ProviderFlags = []
      Size = 60
    end
    object cds_imo_aluguelNOME_INQUILINO: TStringField
      FieldName = 'NOME_INQUILINO'
      ProviderFlags = []
      Size = 60
    end
    object cds_imo_aluguelNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = []
      Size = 50
    end
    object cds_imo_aluguelCOD_IMOBILIARIA: TStringField
      FieldName = 'COD_IMOBILIARIA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_imo_aluguelDATA_LOCA: TDateField
      FieldName = 'DATA_LOCA'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/00;1;_'
    end
    object cds_imo_aluguelDATA_VCONT: TDateField
      FieldName = 'DATA_VCONT'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/00;1;_'
    end
    object cds_imo_aluguelATIVO: TStringField
      FieldName = 'ATIVO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
    object cds_imo_aluguelPORCENTUAL: TFloatField
      FieldName = 'PORCENTUAL'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelTAXA_ADM: TFloatField
      FieldName = 'TAXA_ADM'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_imo_aluguelMETRAGEM: TStringField
      FieldName = 'METRAGEM'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_imo_aluguelBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_imo_aluguelCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 80
    end
    object cds_imo_aluguelCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_imo_aluguelUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object cds_imo_aluguelVISITA: TStringField
      FieldName = 'VISITA'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 3
    end
    object cds_imo_aluguelDATAVISITA: TDateField
      FieldName = 'DATAVISITA'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelCOD_INTERESSADO: TIntegerField
      FieldName = 'COD_INTERESSADO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelPRAZO_REPASSE: TIntegerField
      FieldName = 'PRAZO_REPASSE'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelFORMA_REPASSE: TStringField
      FieldName = 'FORMA_REPASSE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_imo_aluguelFORMA_RECEBE: TStringField
      FieldName = 'FORMA_RECEBE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_imo_aluguelDIA: TIntegerField
      FieldName = 'DIA'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelMES: TIntegerField
      FieldName = 'MES'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelANO: TIntegerField
      FieldName = 'ANO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelP_INICIAL: TIntegerField
      FieldName = 'P_INICIAL'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_aluguelIRRF: TStringField
      FieldName = 'IRRF'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
  end
  object proc_funcionario: TSQLClientDataSet
    CommandText = 
      'select COD_FUNCIONARIO, NOME '#13#10'from FUNCIONARIOS '#13#10'where NOME li' +
      'ke :nome'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'nome'
        ParamType = ptInput
      end>
    DBConnection = scSge
    Left = 532
    Top = 185
    object proc_funcionarioCOD_FUNCIONARIO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'COD_FUNCIONARIO'
      Required = True
    end
    object proc_funcionarioNOME: TStringField
      DisplayLabel = 'Nome do funcion'#225'rio'
      FieldName = 'NOME'
      Size = 50
    end
  end
  object dst_imo_venda: TSQLDataSet
    CommandText = 
      'select imo.*, cep.*, pro.NOME_PROPRIETARIO, clie.NOME, '#13#10'fun.NOM' +
      'E '#13#10'from IMOVEL_VENDA imo '#13#10'left outer join CEP cep on '#13#10'cep.COD' +
      '_CEP=imo.COD_ENDERECO '#13#10'left outer join PROPRIETARIOS pro on '#13#10'p' +
      'ro.COD_PROPRIETARIO = imo.COD_PROPRIETARIO '#13#10'left outer join CLI' +
      'ENTE clie on '#13#10'clie.COD_CLIENTE = imo.COD_CLIENTE '#13#10'left outer j' +
      'oin FUNCIONARIOS fun on '#13#10'fun.COD_FUNCIONARIO = imo.COD_FUNCIONA' +
      'RIO '#13#10'where COD_IMOVENDA = :Pcod'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'Pcod'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 308
    Top = 322
    object dst_imo_vendaCOD_IMOVENDA: TIntegerField
      FieldName = 'COD_IMOVENDA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_imo_vendaIMOVEL: TStringField
      FieldName = 'IMOVEL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_imo_vendaCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_vendaCOD_CLIENTE: TIntegerField
      FieldName = 'COD_CLIENTE'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_vendaCOD_FUNCIONARIO: TIntegerField
      FieldName = 'COD_FUNCIONARIO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_vendaCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_vendaNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_imo_vendaCOMPL: TStringField
      FieldName = 'COMPL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_imo_vendaTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_imo_vendaMATRICULA: TStringField
      FieldName = 'MATRICULA'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_imo_vendaDTAREG: TDateField
      FieldName = 'DTAREG'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_vendaDETALHES: TStringField
      FieldName = 'DETALHES'
      ProviderFlags = [pfInUpdate]
      Size = 150
    end
    object dst_imo_vendaCONDICAOPGTO: TStringField
      FieldName = 'CONDICAOPGTO'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object dst_imo_vendaVALOR: TFloatField
      FieldName = 'VALOR'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_vendaVALOREX: TStringField
      FieldName = 'VALOREX'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object dst_imo_vendaVENDIDO: TStringField
      FieldName = 'VENDIDO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object dst_imo_vendaDTAAQUIZICAO: TDateField
      FieldName = 'DTAAQUIZICAO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_vendaPRESTACAO: TStringField
      FieldName = 'PRESTACAO'
      ProviderFlags = [pfInUpdate]
      Size = 4
    end
    object dst_imo_vendaVLORPRESTACAO: TFloatField
      FieldName = 'VLORPRESTACAO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_vendaOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 250
    end
    object dst_imo_vendaDTAQUITACAO: TDateField
      FieldName = 'DTAQUITACAO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_vendaDTAVENDA: TDateField
      FieldName = 'DTAVENDA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_vendaMARGEMLUCRO: TFloatField
      FieldName = 'MARGEMLUCRO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_vendaCOD_CEP: TIntegerField
      FieldName = 'COD_CEP'
      ProviderFlags = [pfInUpdate]
    end
    object dst_imo_vendaBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object dst_imo_vendaCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object dst_imo_vendaCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 9
    end
    object dst_imo_vendaUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object dst_imo_vendaRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
    object dst_imo_vendaNOME_PROPRIETARIO: TStringField
      FieldName = 'NOME_PROPRIETARIO'
      ProviderFlags = []
      Size = 60
    end
    object dst_imo_vendaNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = []
      Size = 50
    end
    object dst_imo_vendaNOME_1: TStringField
      FieldName = 'NOME_1'
      ProviderFlags = []
      Size = 50
    end
    object dst_imo_vendaN_QUARTOS: TStringField
      FieldName = 'N_QUARTOS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_imo_vendaN_SALAS: TStringField
      FieldName = 'N_SALAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_imo_vendaN_COZINHAS: TStringField
      FieldName = 'N_COZINHAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_imo_vendaN_GARAGENS: TStringField
      FieldName = 'N_GARAGENS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object dst_imo_vendaCOD_IMOBILIARIA: TStringField
      FieldName = 'COD_IMOBILIARIA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
  end
  object dsp_imo_venda: TDataSetProvider
    DataSet = dst_imo_venda
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 376
    Top = 322
  end
  object cds_imo_venda: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'Pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_imo_venda'
    BeforePost = cds_imo_vendaBeforePost
    OnNewRecord = cds_imo_vendaNewRecord
    Left = 456
    Top = 322
    object cds_imo_vendaCOD_IMOVENDA: TIntegerField
      FieldName = 'COD_IMOVENDA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_imo_vendaIMOVEL: TStringField
      FieldName = 'IMOVEL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_imo_vendaCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_vendaCOD_CLIENTE: TIntegerField
      FieldName = 'COD_CLIENTE'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_vendaCOD_FUNCIONARIO: TIntegerField
      FieldName = 'COD_FUNCIONARIO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_vendaCOD_ENDERECO: TIntegerField
      FieldName = 'COD_ENDERECO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_vendaNR: TStringField
      FieldName = 'NR'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_imo_vendaCOMPL: TStringField
      FieldName = 'COMPL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_imo_vendaTIPO: TStringField
      FieldName = 'TIPO'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_imo_vendaMATRICULA: TStringField
      FieldName = 'MATRICULA'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_imo_vendaDTAREG: TDateField
      FieldName = 'DTAREG'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_vendaDETALHES: TStringField
      FieldName = 'DETALHES'
      ProviderFlags = [pfInUpdate]
      Size = 150
    end
    object cds_imo_vendaCONDICAOPGTO: TStringField
      FieldName = 'CONDICAOPGTO'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_imo_vendaVALOR: TFloatField
      FieldName = 'VALOR'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_vendaVALOREX: TStringField
      FieldName = 'VALOREX'
      ProviderFlags = [pfInUpdate]
      Size = 40
    end
    object cds_imo_vendaVENDIDO: TStringField
      FieldName = 'VENDIDO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object cds_imo_vendaDTAAQUIZICAO: TDateField
      FieldName = 'DTAAQUIZICAO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_vendaPRESTACAO: TStringField
      FieldName = 'PRESTACAO'
      ProviderFlags = [pfInUpdate]
      Size = 4
    end
    object cds_imo_vendaVLORPRESTACAO: TFloatField
      FieldName = 'VLORPRESTACAO'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_imo_vendaOBS: TStringField
      FieldName = 'OBS'
      ProviderFlags = [pfInUpdate]
      Size = 250
    end
    object cds_imo_vendaDTAQUITACAO: TDateField
      FieldName = 'DTAQUITACAO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_vendaDTAVENDA: TDateField
      FieldName = 'DTAVENDA'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_vendaMARGEMLUCRO: TFloatField
      FieldName = 'MARGEMLUCRO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_vendaCOD_CEP: TIntegerField
      FieldName = 'COD_CEP'
      ProviderFlags = [pfInUpdate]
    end
    object cds_imo_vendaBAIRRO: TStringField
      FieldName = 'BAIRRO'
      ProviderFlags = [pfInUpdate]
      Size = 35
    end
    object cds_imo_vendaCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate]
      Size = 30
    end
    object cds_imo_vendaCEP: TStringField
      FieldName = 'CEP'
      ProviderFlags = [pfInUpdate]
      Size = 9
    end
    object cds_imo_vendaUF: TStringField
      FieldName = 'UF'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object cds_imo_vendaRUA: TStringField
      FieldName = 'RUA'
      ProviderFlags = []
      Size = 50
    end
    object cds_imo_vendaNOME_PROPRIETARIO: TStringField
      FieldName = 'NOME_PROPRIETARIO'
      ProviderFlags = []
      Size = 60
    end
    object cds_imo_vendaNOME: TStringField
      FieldName = 'NOME'
      ProviderFlags = []
      Size = 50
    end
    object cds_imo_vendaNOME_1: TStringField
      FieldName = 'NOME_1'
      ProviderFlags = []
      Size = 50
    end
    object cds_imo_vendaN_QUARTOS: TStringField
      FieldName = 'N_QUARTOS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_imo_vendaN_SALAS: TStringField
      FieldName = 'N_SALAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_imo_vendaN_COZINHAS: TStringField
      FieldName = 'N_COZINHAS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_imo_vendaN_GARAGENS: TStringField
      FieldName = 'N_GARAGENS'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cds_imo_vendaCOD_IMOBILIARIA: TStringField
      FieldName = 'COD_IMOBILIARIA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
  end
  object proc_Imo_aluguel: TSQLClientDataSet
    CommandText = 
      'select ima.COD_IMALU, pro.NOME_PROPRIETARIO,  inq.NOME_INQUILINO' +
      ' '#13#10'from IMOVEL_ALUGUEL ima '#13#10'left outer join  PROPRIETARIOS pro ' +
      'on '#13#10'pro.COD_PROPRIETARIO = ima.COD_PROPRIETARIO '#13#10'left outer jo' +
      'in  INQUILINOS inq on '#13#10'inq.COD_INQUILINO = ima.COD_INQUILINO '#13#10 +
      'where NOME_PROPRIETARIO like :nome'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'nome'
        ParamType = ptInput
      end>
    DBConnection = scSge
    Left = 576
    Top = 276
    object proc_Imo_aluguelCOD_IMALU: TIntegerField
      DisplayLabel = 'C'#243'digo'
      DisplayWidth = 6
      FieldName = 'COD_IMALU'
      Required = True
    end
    object proc_Imo_aluguelNOME_PROPRIETARIO: TStringField
      DisplayLabel = 'Nome do Propriet'#225'rio'
      DisplayWidth = 40
      FieldName = 'NOME_PROPRIETARIO'
      Size = 60
    end
    object proc_Imo_aluguelNOME_INQUILINO: TStringField
      DisplayLabel = 'Nome do Inquilino'
      DisplayWidth = 40
      FieldName = 'NOME_INQUILINO'
      Size = 60
    end
  end
  object proc_Imo_venda: TSQLClientDataSet
    CommandText = 
      'select imo.COD_IMOVENDA, pro.NOME_PROPRIETARIO '#13#10'from IMOVEL_VEN' +
      'DA imo '#13#10'left outer join  PROPRIETARIOS pro on '#13#10'pro.COD_PROPRIE' +
      'TARIO = imo.COD_PROPRIETARIO '#13#10'where NOME_PROPRIETARIO like :nom' +
      'e'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'nome'
        ParamType = ptInput
      end>
    DBConnection = scSge
    Left = 580
    Top = 322
    object proc_Imo_vendaCOD_IMOVENDA: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'COD_IMOVENDA'
      Required = True
    end
    object proc_Imo_vendaNOME_PROPRIETARIO: TStringField
      DisplayLabel = 'Nome do Propriet'#225'rio'
      FieldName = 'NOME_PROPRIETARIO'
      Size = 60
    end
  end
  object dst_foto: TSQLDataSet
    CommandText = 'select * from FOTO '#13#10'where COD_IMOVEL = :pfoto'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftString
        Name = 'pfoto'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 8
    Top = 328
    object dst_fotoCOD_FOTO: TIntegerField
      FieldName = 'COD_FOTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_fotoCOD_IMOVEL: TStringField
      FieldName = 'COD_IMOVEL'
      ProviderFlags = [pfInUpdate]
    end
    object dst_fotoNOME_FOTO: TStringField
      FieldName = 'NOME_FOTO'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
  end
  object dsp_foto: TDataSetProvider
    DataSet = dst_foto
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 72
    Top = 328
  end
  object cds_foto: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftString
        Name = 'pfoto'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_foto'
    BeforePost = cds_fotoBeforePost
    OnNewRecord = cds_fotoNewRecord
    Left = 152
    Top = 328
    object cds_fotoCOD_FOTO: TIntegerField
      FieldName = 'COD_FOTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_fotoCOD_IMOVEL: TStringField
      FieldName = 'COD_IMOVEL'
      ProviderFlags = [pfInUpdate]
    end
    object cds_fotoNOME_FOTO: TStringField
      FieldName = 'NOME_FOTO'
      ProviderFlags = [pfInUpdate]
      Size = 200
    end
  end
  object dst_p_conta: TSQLDataSet
    CommandText = 
      'select * from PLANO_CONTAS '#13#10'where ((COD_CONTAS=:PCOD) or (:PCOD' +
      ' = 9999999)) '#13#10'or GRUPO=:pgrupo'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'PCOD'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'PCOD'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'pgrupo'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 308
    Top = 371
    object dst_p_contaCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_p_contaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object dst_p_contaGRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_p_contaRECEITA_DESPESA: TStringField
      FieldName = 'RECEITA_DESPESA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_p_contaIRRF: TStringField
      FieldName = 'IRRF'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
  end
  object cds_p_conta: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'PCOD'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'PCOD'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'pgrupo'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_p_conta'
    BeforePost = cds_p_contaBeforePost
    OnNewRecord = cds_p_contaNewRecord
    Left = 457
    Top = 371
    object cds_p_contaCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
    end
    object cds_p_contaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object cds_p_contaGRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_p_contaRECEITA_DESPESA: TStringField
      FieldName = 'RECEITA_DESPESA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_p_contaIRRF: TStringField
      FieldName = 'IRRF'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 1
    end
  end
  object dsp_p_conta: TDataSetProvider
    DataSet = dst_p_conta
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 380
    Top = 371
  end
  object dst_d_fixa: TSQLDataSet
    CommandText = 
      'select lan.*, pla.DESCRICAO   '#13#10'from LANCAMENTOS_FIXOS lan '#13#10'lef' +
      't outer join PLANO_CONTAS pla on '#13#10'pla.COD_CONTAS=lan.COD_CONTAS' +
      ' '#13#10'where lan.COD_IMALU=:pcod or pla.COD_CONTAS=:Pfixo'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'Pfixo'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 548
    Top = 373
    object dst_d_fixaCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_d_fixaCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object dst_d_fixaCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate]
    end
    object dst_d_fixaQUTDE_MESES: TIntegerField
      FieldName = 'QUTDE_MESES'
      ProviderFlags = [pfInUpdate]
    end
    object dst_d_fixaVALOR_MES: TFloatField
      FieldName = 'VALOR_MES'
      ProviderFlags = [pfInUpdate]
    end
    object dst_d_fixaVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object dst_d_fixaVALOR_PAGO: TFloatField
      FieldName = 'VALOR_PAGO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_d_fixaVALOR_DIFERENCA: TFloatField
      FieldName = 'VALOR_DIFERENCA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_d_fixaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = []
      Size = 60
    end
    object dst_d_fixaPARCELAS_REC: TIntegerField
      FieldName = 'PARCELAS_REC'
      ProviderFlags = [pfInUpdate]
    end
    object dst_d_fixaGRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_d_fixaRECEITA_DESPESA: TStringField
      FieldName = 'RECEITA_DESPESA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object dst_d_fixaLANCADO: TStringField
      FieldName = 'LANCADO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 3
    end
    object dst_d_fixaDTALANCADO: TDateField
      FieldName = 'DTALANCADO'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dsp_d_fixa: TDataSetProvider
    DataSet = dst_d_fixa
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 604
    Top = 373
  end
  object cds_d_fixa: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'Pfixo'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_d_fixa'
    BeforePost = cds_d_fixaBeforePost
    OnNewRecord = cds_d_fixaNewRecord
    Left = 666
    Top = 373
    object cds_d_fixaCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_d_fixaCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object cds_d_fixaCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate]
    end
    object cds_d_fixaQUTDE_MESES: TIntegerField
      FieldName = 'QUTDE_MESES'
      ProviderFlags = [pfInUpdate]
    end
    object cds_d_fixaVALOR_MES: TFloatField
      FieldName = 'VALOR_MES'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_d_fixaVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_d_fixaVALOR_PAGO: TFloatField
      FieldName = 'VALOR_PAGO'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_d_fixaVALOR_DIFERENCA: TFloatField
      FieldName = 'VALOR_DIFERENCA'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_d_fixaDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = []
      Size = 60
    end
    object cds_d_fixaPARCELAS_REC: TIntegerField
      FieldName = 'PARCELAS_REC'
      ProviderFlags = [pfInUpdate]
    end
    object cds_d_fixaGRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_d_fixaRECEITA_DESPESA: TStringField
      FieldName = 'RECEITA_DESPESA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_d_fixaLANCADO: TStringField
      FieldName = 'LANCADO'
      ProviderFlags = [pfInUpdate]
      FixedChar = True
      Size = 3
    end
    object cds_d_fixaDTALANCADO: TDateField
      FieldName = 'DTALANCADO'
    end
  end
  object sds_Aluguel: TSQLDataSet
    CommandText = 
      'select * from H_IMALU'#13#10'where COD_H_IMALU=:PCOD or '#13#10'COD_IMALU=:P' +
      'Imalu'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'PCOD'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'PImalu'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 8
    Top = 422
    object sds_AluguelCOD_H_IMALU: TIntegerField
      FieldName = 'COD_H_IMALU'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sds_AluguelCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelPARCELA: TStringField
      FieldName = 'PARCELA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_AluguelVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelSTATUS: TStringField
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_AluguelTOTAL_ALUGUEL: TFloatField
      FieldName = 'TOTAL_ALUGUEL'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelTOTAL_RECEBIDO: TFloatField
      FieldName = 'TOTAL_RECEBIDO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelREC_INQUILINO: TStringField
      FieldName = 'REC_INQUILINO'
      ProviderFlags = [pfInUpdate]
      Size = 3
    end
    object sds_AluguelDATA_REC: TDateField
      FieldName = 'DATA_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelREP_PROPRIETARIO: TStringField
      FieldName = 'REP_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
      Size = 3
    end
    object sds_AluguelDATA_REP: TDateField
      FieldName = 'DATA_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelTOTAL_REPASSE: TFloatField
      FieldName = 'TOTAL_REPASSE'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelFORMA_REC: TStringField
      FieldName = 'FORMA_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelNDOC_REC: TStringField
      FieldName = 'NDOC_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelCAIXA_REC: TStringField
      FieldName = 'CAIXA_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelPERIODO_REC: TDateField
      FieldName = 'PERIODO_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelPERIODO_REP: TDateField
      FieldName = 'PERIODO_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelFORMA_REP: TStringField
      FieldName = 'FORMA_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelNDOC_REP: TStringField
      FieldName = 'NDOC_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelCAIXA_REP: TStringField
      FieldName = 'CAIXA_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelVALOR_A_REC: TFloatField
      FieldName = 'VALOR_A_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelVALOR_A_REP: TFloatField
      FieldName = 'VALOR_A_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelTROCO_REC: TFloatField
      FieldName = 'TROCO_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelTROCO_REP: TFloatField
      FieldName = 'TROCO_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelDESCRICAO_REC: TStringField
      FieldName = 'DESCRICAO_REC'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object sds_AluguelDESCRICAO_REP: TStringField
      FieldName = 'DESCRICAO_REP'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object sds_AluguelVENCIMENTO_REP: TDateField
      FieldName = 'VENCIMENTO_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelSTATUS_PRO: TStringField
      FieldName = 'STATUS_PRO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_AluguelPERIODO_REC1: TDateField
      FieldName = 'PERIODO_REC1'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelPERIODO_REP1: TDateField
      FieldName = 'PERIODO_REP1'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelTOTAL_DESPESAS: TFloatField
      FieldName = 'TOTAL_DESPESAS'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelTOTAL_RECEITAS: TFloatField
      FieldName = 'TOTAL_RECEITAS'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelTOTAL_DESPESAS_REP: TFloatField
      FieldName = 'TOTAL_DESPESAS_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_AluguelTOTAL_RECEITAS_REP: TFloatField
      FieldName = 'TOTAL_RECEITAS_REP'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dsp_Aluguel: TDataSetProvider
    DataSet = sds_Aluguel
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 72
    Top = 422
  end
  object cds_Aluguel: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'PCOD'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'PImalu'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_Aluguel'
    BeforePost = cds_AluguelBeforePost
    OnNewRecord = cds_AluguelNewRecord
    Left = 152
    Top = 422
    object cds_AluguelCOD_H_IMALU: TIntegerField
      FieldName = 'COD_H_IMALU'
    end
    object cds_AluguelCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
    end
    object cds_AluguelPARCELA: TStringField
      FieldName = 'PARCELA'
      Size = 10
    end
    object cds_AluguelVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
    end
    object cds_AluguelSTATUS: TStringField
      FieldName = 'STATUS'
      Size = 10
    end
    object cds_AluguelTOTAL_ALUGUEL: TFloatField
      FieldName = 'TOTAL_ALUGUEL'
      DisplayFormat = ',#0.00'
    end
    object cds_AluguelTOTAL_RECEBIDO: TFloatField
      FieldName = 'TOTAL_RECEBIDO'
    end
    object cds_AluguelREC_INQUILINO: TStringField
      FieldName = 'REC_INQUILINO'
      Size = 3
    end
    object cds_AluguelDATA_REC: TDateField
      FieldName = 'DATA_REC'
      EditMask = '!99/99/00;1;_'
    end
    object cds_AluguelREP_PROPRIETARIO: TStringField
      FieldName = 'REP_PROPRIETARIO'
      Size = 3
    end
    object cds_AluguelDATA_REP: TDateField
      FieldName = 'DATA_REP'
      EditMask = '!99/99/00;1;_'
    end
    object cds_AluguelTOTAL_REPASSE: TFloatField
      FieldName = 'TOTAL_REPASSE'
    end
    object cds_AluguelFORMA_REC: TStringField
      FieldName = 'FORMA_REC'
    end
    object cds_AluguelNDOC_REC: TStringField
      FieldName = 'NDOC_REC'
    end
    object cds_AluguelCAIXA_REC: TStringField
      FieldName = 'CAIXA_REC'
    end
    object cds_AluguelPERIODO_REC: TDateField
      FieldName = 'PERIODO_REC'
    end
    object cds_AluguelPERIODO_REP: TDateField
      FieldName = 'PERIODO_REP'
    end
    object cds_AluguelFORMA_REP: TStringField
      FieldName = 'FORMA_REP'
    end
    object cds_AluguelNDOC_REP: TStringField
      FieldName = 'NDOC_REP'
    end
    object cds_AluguelCAIXA_REP: TStringField
      FieldName = 'CAIXA_REP'
    end
    object cds_AluguelVALOR_A_REC: TFloatField
      FieldName = 'VALOR_A_REC'
    end
    object cds_AluguelVALOR_A_REP: TFloatField
      FieldName = 'VALOR_A_REP'
    end
    object cds_AluguelTROCO_REC: TFloatField
      FieldName = 'TROCO_REC'
    end
    object cds_AluguelTROCO_REP: TFloatField
      FieldName = 'TROCO_REP'
    end
    object cds_AluguelDESCRICAO_REC: TStringField
      FieldName = 'DESCRICAO_REC'
      Size = 60
    end
    object cds_AluguelDESCRICAO_REP: TStringField
      FieldName = 'DESCRICAO_REP'
      Size = 60
    end
    object cds_AluguelVENCIMENTO_REP: TDateField
      FieldName = 'VENCIMENTO_REP'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/00;1;_'
    end
    object cds_AluguelSTATUS_PRO: TStringField
      FieldName = 'STATUS_PRO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_AluguelPERIODO_REC1: TDateField
      FieldName = 'PERIODO_REC1'
      ProviderFlags = [pfInUpdate]
    end
    object cds_AluguelPERIODO_REP1: TDateField
      FieldName = 'PERIODO_REP1'
      ProviderFlags = [pfInUpdate]
    end
    object cds_AluguelTOTAL_DESPESAS: TFloatField
      FieldName = 'TOTAL_DESPESAS'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_AluguelTOTAL_RECEITAS: TFloatField
      FieldName = 'TOTAL_RECEITAS'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cds_AluguelTOTAL_DESPESAS_REP: TFloatField
      FieldName = 'TOTAL_DESPESAS_REP'
      ProviderFlags = [pfInUpdate]
    end
    object cds_AluguelTOTAL_RECEITAS_REP: TFloatField
      FieldName = 'TOTAL_RECEITAS_REP'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dst_Lista_alugueis: TSQLDataSet
    CommandText = 'select * from ALUGUEIS '#13#10'where COD_IMALU= :pcod'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 8
    Top = 470
    object dst_Lista_alugueisCOD_ALUGUEIS: TIntegerField
      FieldName = 'COD_ALUGUEIS'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_Lista_alugueisCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object dst_Lista_alugueisDATA: TDateField
      FieldName = 'DATA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_Lista_alugueisVALOR_ALUGUEL: TFloatField
      FieldName = 'VALOR_ALUGUEL'
      ProviderFlags = [pfInUpdate]
    end
    object dst_Lista_alugueisPORCENTUAL: TFloatField
      FieldName = 'PORCENTUAL'
      ProviderFlags = [pfInUpdate]
    end
    object dst_Lista_alugueisTAXA_ADM: TFloatField
      FieldName = 'TAXA_ADM'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dsp_L_alugueis: TDataSetProvider
    DataSet = dst_Lista_alugueis
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 72
    Top = 470
  end
  object cds_l_alugueis: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_L_alugueis'
    BeforePost = cds_l_alugueisBeforePost
    OnNewRecord = cds_l_alugueisNewRecord
    Left = 152
    Top = 470
    object cds_l_alugueisCOD_ALUGUEIS: TIntegerField
      FieldName = 'COD_ALUGUEIS'
    end
    object cds_l_alugueisCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
    end
    object cds_l_alugueisDATA: TDateField
      FieldName = 'DATA'
    end
    object cds_l_alugueisVALOR_ALUGUEL: TFloatField
      FieldName = 'VALOR_ALUGUEL'
      DisplayFormat = ',##0.00'
    end
    object cds_l_alugueisPORCENTUAL: TFloatField
      FieldName = 'PORCENTUAL'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',##0.00'
    end
    object cds_l_alugueisTAXA_ADM: TFloatField
      FieldName = 'TAXA_ADM'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',##0.00'
    end
  end
  object cds_lancamentos: TClientDataSet
    Aggregates = <>
    AggregatesActive = True
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pconta'
        ParamType = ptInput
      end>
    ProviderName = 'DataSetProvider1'
    BeforePost = cds_lancamentosBeforePost
    OnNewRecord = cds_lancamentosNewRecord
    Left = 456
    Top = 420
    object cds_lancamentosCOD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
    end
    object cds_lancamentosCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
    end
    object cds_lancamentosCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
    end
    object cds_lancamentosCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
    end
    object cds_lancamentosQUTDE: TIntegerField
      FieldName = 'QUTDE'
    end
    object cds_lancamentosVALOR: TFloatField
      FieldName = 'VALOR'
      DisplayFormat = ',#0.00'
    end
    object cds_lancamentosVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      DisplayFormat = ',#0.00'
    end
    object cds_lancamentosCOD_CONTAS_1: TIntegerField
      FieldName = 'COD_CONTAS_1'
    end
    object cds_lancamentosDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 60
    end
    object cds_lancamentosGRUPO: TStringField
      FieldName = 'GRUPO'
    end
    object cds_lancamentosRECEITA_DESPESA: TStringField
      FieldName = 'RECEITA_DESPESA'
      Size = 10
    end
    object cds_lancamentostotal_geral: TFloatField
      FieldKind = fkInternalCalc
      FieldName = 'total_geral'
      DisplayFormat = ',#0.00'
    end
    object cds_lancamentosDESCRICAO_1: TStringField
      FieldName = 'DESCRICAO_1'
      ProviderFlags = []
      Size = 60
    end
    object cds_lancamentosPARCELA: TIntegerField
      FieldName = 'PARCELA'
      ProviderFlags = [pfInUpdate]
    end
    object cds_lancamentosDATA_LANC: TDateField
      FieldName = 'DATA_LANC'
      ProviderFlags = [pfInUpdate]
    end
    object cds_lancamentosCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_lancamentosCOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_lancamentosTotal: TAggregateField
      Alignment = taRightJustify
      FieldName = 'Total'
      Active = True
      DisplayFormat = ',#0.00'
      Expression = 'Sum(VALOR)'
    end
    object cds_lancamentosTotal_rec: TAggregateField
      Alignment = taRightJustify
      FieldName = 'Total_rec'
      Active = True
      DisplayFormat = ',#0.00'
      Expression = 'Sum(VALOR_TOTAL)'
    end
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = dst_lancamentos
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 376
    Top = 420
  end
  object dst_lancamentos: TSQLDataSet
    CommandText = 
      'select lanc.*, plano.*  '#13#10'from LANCAMENTOS lanc '#13#10'left outer joi' +
      'n PLANO_CONTAS plano on '#13#10'plano.COD_CONTAS=lanc.COD_CONTAS '#13#10'whe' +
      're lanc.COD_IMALU = :pcod or lanc.COD_CONTAS = :pconta '#13#10'order b' +
      'y plano.COD_CONTAS '
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pconta'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 304
    Top = 420
    object dst_lancamentosCOD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dst_lancamentosCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
      ProviderFlags = [pfInUpdate]
    end
    object dst_lancamentosCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object dst_lancamentosCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate]
    end
    object dst_lancamentosQUTDE: TIntegerField
      FieldName = 'QUTDE'
      ProviderFlags = [pfInUpdate]
    end
    object dst_lancamentosVALOR: TFloatField
      FieldName = 'VALOR'
      ProviderFlags = [pfInUpdate]
    end
    object dst_lancamentosVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object dst_lancamentosCOD_CONTAS_1: TIntegerField
      FieldName = 'COD_CONTAS_1'
      ProviderFlags = []
    end
    object dst_lancamentosDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object dst_lancamentosGRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = []
    end
    object dst_lancamentosRECEITA_DESPESA: TStringField
      FieldName = 'RECEITA_DESPESA'
      ProviderFlags = []
      Size = 10
    end
    object dst_lancamentosDESCRICAO_1: TStringField
      FieldName = 'DESCRICAO_1'
      ProviderFlags = []
      Size = 60
    end
    object dst_lancamentosPARCELA: TIntegerField
      FieldName = 'PARCELA'
      ProviderFlags = [pfInUpdate]
    end
    object dst_lancamentosDATA_LANC: TDateField
      FieldName = 'DATA_LANC'
      ProviderFlags = [pfInUpdate]
    end
    object dst_lancamentosCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
    end
    object dst_lancamentosCOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
      ProviderFlags = [pfInUpdate]
    end
  end
  object SQLDataSet1: TSQLDataSet
    CommandText = 
      'select lanc.*, plano.*  '#13#10'from LANCAMENTOS_PRO lanc '#13#10'left outer' +
      ' join PLANO_CONTAS plano on '#13#10'plano.COD_CONTAS=lanc.COD_CONTAS '#13 +
      #10'where lanc.COD_IMALU = :pcod '#13#10'or lanc.COD_MOVIMENTO = :pmov'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pmov'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 300
    Top = 467
    object SQLDataSet1COD_LANCAMENTO_PRO: TIntegerField
      FieldName = 'COD_LANCAMENTO_PRO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object SQLDataSet1COD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1COD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1COD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1QUTDE: TIntegerField
      FieldName = 'QUTDE'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1VALOR: TFloatField
      FieldName = 'VALOR'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1VALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1DESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      Size = 50
    end
    object SQLDataSet1COD_CONTAS_1: TIntegerField
      FieldName = 'COD_CONTAS_1'
      ProviderFlags = []
    end
    object SQLDataSet1DESCRICAO_1: TStringField
      FieldName = 'DESCRICAO_1'
      ProviderFlags = []
      Size = 60
    end
    object SQLDataSet1GRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = []
    end
    object SQLDataSet1RECEITA_DESPESA: TStringField
      FieldName = 'RECEITA_DESPESA'
      ProviderFlags = []
      Size = 10
    end
    object SQLDataSet1DATA_LANC: TDateField
      FieldName = 'DATA_LANC'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1COD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object SQLDataSet1COD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
      ProviderFlags = [pfInUpdate]
    end
  end
  object DataSetProvider2: TDataSetProvider
    DataSet = SQLDataSet1
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 364
    Top = 467
  end
  object cds_Lancamento_REP: TClientDataSet
    Aggregates = <>
    AggregatesActive = True
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'pmov'
        ParamType = ptInput
      end>
    ProviderName = 'DataSetProvider2'
    BeforePost = cds_Lancamento_REPBeforePost
    Left = 428
    Top = 467
    object cds_Lancamento_REPCOD_LANCAMENTO_PRO: TIntegerField
      FieldName = 'COD_LANCAMENTO_PRO'
    end
    object cds_Lancamento_REPCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
    end
    object cds_Lancamento_REPCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
    end
    object cds_Lancamento_REPCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
    end
    object cds_Lancamento_REPQUTDE: TIntegerField
      FieldName = 'QUTDE'
    end
    object cds_Lancamento_REPVALOR: TFloatField
      FieldName = 'VALOR'
      DisplayFormat = ',#0.00'
    end
    object cds_Lancamento_REPVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      DisplayFormat = ',#0.00'
    end
    object cds_Lancamento_REPDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      Size = 50
    end
    object cds_Lancamento_REPCOD_CONTAS_1: TIntegerField
      FieldName = 'COD_CONTAS_1'
    end
    object cds_Lancamento_REPDESCRICAO_1: TStringField
      FieldName = 'DESCRICAO_1'
      Size = 60
    end
    object cds_Lancamento_REPGRUPO: TStringField
      FieldName = 'GRUPO'
    end
    object cds_Lancamento_REPRECEITA_DESPESA: TStringField
      FieldName = 'RECEITA_DESPESA'
      Size = 10
    end
    object cds_Lancamento_REPDATA_LANC: TDateField
      FieldName = 'DATA_LANC'
      ProviderFlags = [pfInUpdate]
      EditMask = '!99/99/0000;1;_'
    end
    object cds_Lancamento_REPCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_Lancamento_REPCOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object cds_Lancamento_REPTotal: TAggregateField
      Alignment = taRightJustify
      FieldName = 'Total'
      Active = True
      DisplayFormat = ',#0.00'
      Expression = 'Sum(VALOR)'
    end
    object cds_Lancamento_REPTotal_rec: TAggregateField
      Alignment = taRightJustify
      FieldName = 'Total_rec'
      Active = True
      DisplayFormat = ',#0.00'
      Expression = 'Sum(VALOR_TOTAL)'
    end
  end
  object sds_indice: TSQLDataSet
    CommandText = 'select * from INDICE'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = scSge
    Left = 552
    Top = 472
    object sds_indiceDATA: TStringField
      FieldName = 'DATA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_indiceINDICE: TStringField
      FieldName = 'INDICE'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_indiceCOD_INDICE: TIntegerField
      FieldName = 'COD_INDICE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
  end
  object dsp_indice: TDataSetProvider
    DataSet = sds_indice
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 608
    Top = 472
  end
  object cds_Indice: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_indice'
    BeforePost = cds_IndiceBeforePost
    OnNewRecord = cds_IndiceNewRecord
    Left = 666
    Top = 472
    object cds_IndiceDATA: TStringField
      FieldName = 'DATA'
      EditMask = '!99/99/00;1;_'
      Size = 10
    end
    object cds_IndiceINDICE: TStringField
      FieldName = 'INDICE'
      Size = 10
    end
    object cds_IndiceCOD_INDICE: TIntegerField
      FieldName = 'COD_INDICE'
    end
  end
  object cds_procIndice: TSQLClientDataSet
    CommandText = 'select * from INDICE'#13#10'where DATA like:DATA'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'DATA'
        ParamType = ptInput
      end>
    DBConnection = scSge
    Left = 741
    Top = 472
    object cds_procIndiceDATA: TStringField
      FieldName = 'DATA'
      Size = 10
    end
    object cds_procIndiceINDICE: TStringField
      FieldName = 'INDICE'
      Size = 10
    end
    object cds_procIndiceCOD_INDICE: TIntegerField
      FieldName = 'COD_INDICE'
      Required = True
    end
  end
  object sds_venda: TSQLDataSet
    CommandText = 'select * from H_IMOVEL'#13#10'where COD_IMOVEL=:PCOD'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'PCOD'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 552
    Top = 424
    object sds_vendaCOD_H_IMOVEL: TIntegerField
      FieldName = 'COD_H_IMOVEL'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sds_vendaCOD_IMOVEL: TIntegerField
      FieldName = 'COD_IMOVEL'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaPARCELA: TStringField
      FieldName = 'PARCELA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_vendaVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaSTATUS: TStringField
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_vendaVALOR_IMOVEL: TFloatField
      FieldName = 'VALOR_IMOVEL'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaTOTAL_RECEBIDO: TFloatField
      FieldName = 'TOTAL_RECEBIDO'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaREC_CLIENTE: TStringField
      FieldName = 'REC_CLIENTE'
      ProviderFlags = [pfInUpdate]
      Size = 3
    end
    object sds_vendaDATA_REC: TDateField
      FieldName = 'DATA_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaREP_PROPRIETARIO: TStringField
      FieldName = 'REP_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
      Size = 3
    end
    object sds_vendaDATA_REP: TDateField
      FieldName = 'DATA_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaTOTAL_REPASSE: TFloatField
      FieldName = 'TOTAL_REPASSE'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaFORMA_REC: TStringField
      FieldName = 'FORMA_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaNDOC_REC: TStringField
      FieldName = 'NDOC_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaCAIXA_REC: TStringField
      FieldName = 'CAIXA_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaPERIODO_REC: TDateField
      FieldName = 'PERIODO_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaPERIODO_REP: TDateField
      FieldName = 'PERIODO_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaFORMA_REP: TStringField
      FieldName = 'FORMA_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaNDOC_REP: TStringField
      FieldName = 'NDOC_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaCAIXA_REP: TStringField
      FieldName = 'CAIXA_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaVALOR_A_REC: TFloatField
      FieldName = 'VALOR_A_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaVALOR_A_REP: TFloatField
      FieldName = 'VALOR_A_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaTROCO_REC: TFloatField
      FieldName = 'TROCO_REC'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaTROCO_REP: TFloatField
      FieldName = 'TROCO_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaDESCRICAO_REC: TStringField
      FieldName = 'DESCRICAO_REC'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object sds_vendaDESCRICAO_REP: TStringField
      FieldName = 'DESCRICAO_REP'
      ProviderFlags = [pfInUpdate]
      Size = 60
    end
    object sds_vendaVENCIMENTO_REP: TDateField
      FieldName = 'VENCIMENTO_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaSTATUS_PRO: TStringField
      FieldName = 'STATUS_PRO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_vendaPERIODO_REC1: TDateField
      FieldName = 'PERIODO_REC1'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaPERIODO_REP1: TDateField
      FieldName = 'PERIODO_REP1'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaTOTAL_DESPESAS: TFloatField
      FieldName = 'TOTAL_DESPESAS'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaTOTAL_RECEITAS: TFloatField
      FieldName = 'TOTAL_RECEITAS'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaTOTAL_DESPESAS_REP: TFloatField
      FieldName = 'TOTAL_DESPESAS_REP'
      ProviderFlags = [pfInUpdate]
    end
    object sds_vendaTOTAL_RECEITAS_REP: TFloatField
      FieldName = 'TOTAL_RECEITAS_REP'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dsp_Venda: TDataSetProvider
    DataSet = sds_venda
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 608
    Top = 424
  end
  object cds_venda: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'PCOD'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_Venda'
    BeforePost = cds_vendaBeforePost
    Left = 666
    Top = 424
    object cds_vendaCOD_H_IMOVEL: TIntegerField
      FieldName = 'COD_H_IMOVEL'
    end
    object cds_vendaCOD_IMOVEL: TIntegerField
      FieldName = 'COD_IMOVEL'
    end
    object cds_vendaPARCELA: TStringField
      FieldName = 'PARCELA'
      Size = 10
    end
    object cds_vendaVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
    end
    object cds_vendaSTATUS: TStringField
      FieldName = 'STATUS'
      Size = 10
    end
    object cds_vendaVALOR_IMOVEL: TFloatField
      FieldName = 'VALOR_IMOVEL'
    end
    object cds_vendaTOTAL_RECEBIDO: TFloatField
      FieldName = 'TOTAL_RECEBIDO'
    end
    object cds_vendaREC_CLIENTE: TStringField
      FieldName = 'REC_CLIENTE'
      Size = 3
    end
    object cds_vendaDATA_REC: TDateField
      FieldName = 'DATA_REC'
    end
    object cds_vendaREP_PROPRIETARIO: TStringField
      FieldName = 'REP_PROPRIETARIO'
      Size = 3
    end
    object cds_vendaDATA_REP: TDateField
      FieldName = 'DATA_REP'
    end
    object cds_vendaTOTAL_REPASSE: TFloatField
      FieldName = 'TOTAL_REPASSE'
    end
    object cds_vendaFORMA_REC: TStringField
      FieldName = 'FORMA_REC'
    end
    object cds_vendaNDOC_REC: TStringField
      FieldName = 'NDOC_REC'
    end
    object cds_vendaCAIXA_REC: TStringField
      FieldName = 'CAIXA_REC'
    end
    object cds_vendaPERIODO_REC: TDateField
      FieldName = 'PERIODO_REC'
    end
    object cds_vendaPERIODO_REP: TDateField
      FieldName = 'PERIODO_REP'
    end
    object cds_vendaFORMA_REP: TStringField
      FieldName = 'FORMA_REP'
    end
    object cds_vendaNDOC_REP: TStringField
      FieldName = 'NDOC_REP'
    end
    object cds_vendaCAIXA_REP: TStringField
      FieldName = 'CAIXA_REP'
    end
    object cds_vendaVALOR_A_REC: TFloatField
      FieldName = 'VALOR_A_REC'
    end
    object cds_vendaVALOR_A_REP: TFloatField
      FieldName = 'VALOR_A_REP'
    end
    object cds_vendaTROCO_REC: TFloatField
      FieldName = 'TROCO_REC'
    end
    object cds_vendaTROCO_REP: TFloatField
      FieldName = 'TROCO_REP'
    end
    object cds_vendaDESCRICAO_REC: TStringField
      FieldName = 'DESCRICAO_REC'
      Size = 60
    end
    object cds_vendaDESCRICAO_REP: TStringField
      FieldName = 'DESCRICAO_REP'
      Size = 60
    end
    object cds_vendaVENCIMENTO_REP: TDateField
      FieldName = 'VENCIMENTO_REP'
    end
    object cds_vendaSTATUS_PRO: TStringField
      FieldName = 'STATUS_PRO'
      Size = 10
    end
    object cds_vendaPERIODO_REC1: TDateField
      FieldName = 'PERIODO_REC1'
    end
    object cds_vendaPERIODO_REP1: TDateField
      FieldName = 'PERIODO_REP1'
    end
    object cds_vendaTOTAL_DESPESAS: TFloatField
      FieldName = 'TOTAL_DESPESAS'
    end
    object cds_vendaTOTAL_RECEITAS: TFloatField
      FieldName = 'TOTAL_RECEITAS'
    end
    object cds_vendaTOTAL_DESPESAS_REP: TFloatField
      FieldName = 'TOTAL_DESPESAS_REP'
    end
    object cds_vendaTOTAL_RECEITAS_REP: TFloatField
      FieldName = 'TOTAL_RECEITAS_REP'
    end
  end
  object dsSenha: TDataSource
    DataSet = CDSSenha
    Left = 658
    Top = 3
  end
  object CDSSenha: TSQLClientDataSet
    CommandText = 'TABSENHAS'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    CommandType = ctTable
    DBConnection = scSge
    Left = 600
    Top = 3
    object CDSSenhaLogin: TStringField
      FieldName = 'Login'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object CDSSenhaSenha: TStringField
      FieldName = 'Senha'
      Size = 10
    end
    object CDSSenhaPerfil: TStringField
      FieldName = 'Perfil'
      Size = 15
    end
  end
  object s_6: TSQLDataSet
    CommandText = 
      'SELECT CAST(GEN_ID(G_LANCAMENTOS, 1) as INTEGER) AS CODIGO FROM ' +
      'RDB$DATABASE;'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = scSge
    Left = 576
    Top = 56
    object s_6CODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
  end
  object d_6: TDataSetProvider
    DataSet = s_6
    Options = [poAllowCommandText]
    Left = 616
    Top = 56
  end
  object c_6_genid: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'd_6'
    Left = 656
    Top = 56
    object c_6_genidCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Required = True
    end
  end
  object sds_Senha: TSQLDataSet
    CommandText = 'select * from TABSENHAS '
    MaxBlobSize = -1
    Params = <>
    SQLConnection = scSge
    Left = 600
    Top = 112
    object sds_SenhaLOGIN: TStringField
      FieldName = 'LOGIN'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sds_SenhaSENHA: TStringField
      FieldName = 'SENHA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sds_SenhaPERFIL: TStringField
      FieldName = 'PERFIL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object sds_SenhaCODUSUARIO: TIntegerField
      FieldName = 'CODUSUARIO'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dsp_Senha: TDataSetProvider
    DataSet = sds_Senha
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 663
    Top = 112
  end
  object cds_senha: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_Senha'
    BeforePost = CDSBeforePost
    Left = 719
    Top = 112
    object cds_senhaLOGIN: TStringField
      FieldName = 'LOGIN'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cds_senhaSENHA: TStringField
      FieldName = 'SENHA'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cds_senhaPERFIL: TStringField
      FieldName = 'PERFIL'
      ProviderFlags = [pfInUpdate]
      Size = 15
    end
    object cds_senhaCODUSUARIO: TIntegerField
      FieldName = 'CODUSUARIO'
      ProviderFlags = [pfInUpdate]
    end
  end
  object sds_acesso: TSQLDataSet
    CommandText = 'select * from USUARIO_ACESSO '#13#10'where CODUSUARIO = :pcod'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 600
    Top = 160
    object sds_acessoCODUSUARIO: TIntegerField
      FieldName = 'CODUSUARIO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sds_acessoEMPRESA: TStringField
      FieldName = 'EMPRESA'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoFUNCIONARIOS: TStringField
      FieldName = 'FUNCIONARIOS'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoINQUILINOS: TStringField
      FieldName = 'INQUILINOS'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoPROPRIETARIOS: TStringField
      FieldName = 'PROPRIETARIOS'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoCLI_VENDAS: TStringField
      FieldName = 'CLI_VENDAS'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoINTERESSADOS: TStringField
      FieldName = 'INTERESSADOS'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoIMO_LOCACAO: TStringField
      FieldName = 'IMO_LOCACAO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoIMO_VENDA: TStringField
      FieldName = 'IMO_VENDA'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoCONTRATOS: TStringField
      FieldName = 'CONTRATOS'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoIMO_ALUGAR: TStringField
      FieldName = 'IMO_ALUGAR'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoIMO_VENDER: TStringField
      FieldName = 'IMO_VENDER'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoREC_ALUGUEL: TStringField
      FieldName = 'REC_ALUGUEL'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoREC_VENDA: TStringField
      FieldName = 'REC_VENDA'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoREP_ALUGUEL: TStringField
      FieldName = 'REP_ALUGUEL'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoREP_VENDA: TStringField
      FieldName = 'REP_VENDA'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoCONS_IMOVEIS: TStringField
      FieldName = 'CONS_IMOVEIS'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoCONS_INTERESSADOS: TStringField
      FieldName = 'CONS_INTERESSADOS'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoENDERECO: TStringField
      FieldName = 'ENDERECO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoDESP_REC: TStringField
      FieldName = 'DESP_REC'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoIND_REAJUSTE: TStringField
      FieldName = 'IND_REAJUSTE'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoCRIA_DOC: TStringField
      FieldName = 'CRIA_DOC'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoRESC_CONTRATO: TStringField
      FieldName = 'RESC_CONTRATO'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoREL_1: TStringField
      FieldName = 'REL_1'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoREL_2: TStringField
      FieldName = 'REL_2'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoREL_3: TStringField
      FieldName = 'REL_3'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoREL_4: TStringField
      FieldName = 'REL_4'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoREL_5: TStringField
      FieldName = 'REL_5'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoREL_6: TStringField
      FieldName = 'REL_6'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoREL_7: TStringField
      FieldName = 'REL_7'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoREL_8: TStringField
      FieldName = 'REL_8'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoREL_9: TStringField
      FieldName = 'REL_9'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoREL_10: TStringField
      FieldName = 'REL_10'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoREL_11: TStringField
      FieldName = 'REL_11'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoBACKUP: TStringField
      FieldName = 'BACKUP'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoRESTAURA: TStringField
      FieldName = 'RESTAURA'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoSENHA: TStringField
      FieldName = 'SENHA'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoMENU_1: TStringField
      FieldName = 'MENU_1'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoMENU_2: TStringField
      FieldName = 'MENU_2'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoMENU_3: TStringField
      FieldName = 'MENU_3'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoMENU_4: TStringField
      FieldName = 'MENU_4'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoMENU_5: TStringField
      FieldName = 'MENU_5'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoMENU_6: TStringField
      FieldName = 'MENU_6'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoMENU_7: TStringField
      FieldName = 'MENU_7'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoMENU_8: TStringField
      FieldName = 'MENU_8'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoMENU_9: TStringField
      FieldName = 'MENU_9'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
    object sds_acessoMENU_10: TStringField
      FieldName = 'MENU_10'
      ProviderFlags = [pfInUpdate]
      Size = 1
    end
  end
  object dsp_acesso: TDataSetProvider
    DataSet = sds_acesso
    UpdateMode = upWhereKeyOnly
    OnUpdateData = DSPUpdateData
    OnGetDataSetProperties = DSPGetProproperties
    Left = 656
    Top = 160
  end
  object cds_acesso: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dsp_acesso'
    BeforePost = CDSBeforePost
    OnNewRecord = cds_acessoNewRecord
    Left = 720
    Top = 160
    object cds_acessoCODUSUARIO: TIntegerField
      FieldName = 'CODUSUARIO'
    end
    object cds_acessoEMPRESA: TStringField
      FieldName = 'EMPRESA'
      Size = 1
    end
    object cds_acessoFUNCIONARIOS: TStringField
      FieldName = 'FUNCIONARIOS'
      Size = 1
    end
    object cds_acessoINQUILINOS: TStringField
      FieldName = 'INQUILINOS'
      Size = 1
    end
    object cds_acessoPROPRIETARIOS: TStringField
      FieldName = 'PROPRIETARIOS'
      Size = 1
    end
    object cds_acessoCLI_VENDAS: TStringField
      FieldName = 'CLI_VENDAS'
      Size = 1
    end
    object cds_acessoINTERESSADOS: TStringField
      FieldName = 'INTERESSADOS'
      Size = 1
    end
    object cds_acessoIMO_LOCACAO: TStringField
      FieldName = 'IMO_LOCACAO'
      Size = 1
    end
    object cds_acessoIMO_VENDA: TStringField
      FieldName = 'IMO_VENDA'
      Size = 1
    end
    object cds_acessoCONTRATOS: TStringField
      FieldName = 'CONTRATOS'
      Size = 1
    end
    object cds_acessoIMO_ALUGAR: TStringField
      FieldName = 'IMO_ALUGAR'
      Size = 1
    end
    object cds_acessoIMO_VENDER: TStringField
      FieldName = 'IMO_VENDER'
      Size = 1
    end
    object cds_acessoREC_ALUGUEL: TStringField
      FieldName = 'REC_ALUGUEL'
      Size = 1
    end
    object cds_acessoREC_VENDA: TStringField
      FieldName = 'REC_VENDA'
      Size = 1
    end
    object cds_acessoREP_ALUGUEL: TStringField
      FieldName = 'REP_ALUGUEL'
      Size = 1
    end
    object cds_acessoREP_VENDA: TStringField
      FieldName = 'REP_VENDA'
      Size = 1
    end
    object cds_acessoCONS_IMOVEIS: TStringField
      FieldName = 'CONS_IMOVEIS'
      Size = 1
    end
    object cds_acessoCONS_INTERESSADOS: TStringField
      FieldName = 'CONS_INTERESSADOS'
      Size = 1
    end
    object cds_acessoENDERECO: TStringField
      FieldName = 'ENDERECO'
      Size = 1
    end
    object cds_acessoDESP_REC: TStringField
      FieldName = 'DESP_REC'
      Size = 1
    end
    object cds_acessoIND_REAJUSTE: TStringField
      FieldName = 'IND_REAJUSTE'
      Size = 1
    end
    object cds_acessoCRIA_DOC: TStringField
      FieldName = 'CRIA_DOC'
      Size = 1
    end
    object cds_acessoRESC_CONTRATO: TStringField
      FieldName = 'RESC_CONTRATO'
      Size = 1
    end
    object cds_acessoREL_1: TStringField
      FieldName = 'REL_1'
      Size = 1
    end
    object cds_acessoREL_2: TStringField
      FieldName = 'REL_2'
      Size = 1
    end
    object cds_acessoREL_3: TStringField
      FieldName = 'REL_3'
      Size = 1
    end
    object cds_acessoREL_4: TStringField
      FieldName = 'REL_4'
      Size = 1
    end
    object cds_acessoREL_5: TStringField
      FieldName = 'REL_5'
      Size = 1
    end
    object cds_acessoREL_6: TStringField
      FieldName = 'REL_6'
      Size = 1
    end
    object cds_acessoREL_7: TStringField
      FieldName = 'REL_7'
      Size = 1
    end
    object cds_acessoREL_8: TStringField
      FieldName = 'REL_8'
      Size = 1
    end
    object cds_acessoREL_9: TStringField
      FieldName = 'REL_9'
      Size = 1
    end
    object cds_acessoREL_10: TStringField
      FieldName = 'REL_10'
      Size = 1
    end
    object cds_acessoREL_11: TStringField
      FieldName = 'REL_11'
      Size = 1
    end
    object cds_acessoBACKUP: TStringField
      FieldName = 'BACKUP'
      Size = 1
    end
    object cds_acessoRESTAURA: TStringField
      FieldName = 'RESTAURA'
      Size = 1
    end
    object cds_acessoSENHA: TStringField
      FieldName = 'SENHA'
      Size = 1
    end
    object cds_acessoMENU_1: TStringField
      FieldName = 'MENU_1'
      Size = 1
    end
    object cds_acessoMENU_2: TStringField
      FieldName = 'MENU_2'
      Size = 1
    end
    object cds_acessoMENU_3: TStringField
      FieldName = 'MENU_3'
      Size = 1
    end
    object cds_acessoMENU_4: TStringField
      FieldName = 'MENU_4'
      Size = 1
    end
    object cds_acessoMENU_5: TStringField
      FieldName = 'MENU_5'
      Size = 1
    end
    object cds_acessoMENU_6: TStringField
      FieldName = 'MENU_6'
      Size = 1
    end
    object cds_acessoMENU_7: TStringField
      FieldName = 'MENU_7'
      Size = 1
    end
    object cds_acessoMENU_8: TStringField
      FieldName = 'MENU_8'
      Size = 1
    end
    object cds_acessoMENU_9: TStringField
      FieldName = 'MENU_9'
      Size = 1
    end
    object cds_acessoMENU_10: TStringField
      FieldName = 'MENU_10'
      Size = 1
    end
  end
  object proc_bairro: TSQLClientDataSet
    CommandText = 
      'select * from BAIRROS '#13#10'where BAIRRO like :pnome '#13#10'order by BAIR' +
      'RO'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pnome'
        ParamType = ptInput
      end>
    DBConnection = scSge
    Left = 214
    Top = 526
    object proc_bairroBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Required = True
      Size = 80
    end
  end
  object proc_cidade: TSQLClientDataSet
    CommandText = 
      'select * from CIDADES '#13#10'where CIDADE like :pnome '#13#10'order by CIDA' +
      'DE'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pnome'
        ParamType = ptInput
      end>
    DBConnection = scSge
    Left = 212
    Top = 574
    object proc_cidadeCIDADE: TStringField
      FieldName = 'CIDADE'
      Required = True
      Size = 80
    end
  end
  object sds_bairro: TSQLDataSet
    CommandText = 'select * from BAIRROS'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = scSge
    Left = 16
    Top = 526
    object sds_bairroBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Required = True
      Size = 80
    end
  end
  object dsp_bairro: TDataSetProvider
    DataSet = sds_bairro
    UpdateMode = upWhereKeyOnly
    Left = 80
    Top = 526
  end
  object cds_bairro: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_bairro'
    Left = 144
    Top = 526
    object cds_bairroBAIRRO: TStringField
      FieldName = 'BAIRRO'
      Required = True
      Size = 80
    end
  end
  object cds_cidade: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dsp_cidade'
    Left = 144
    Top = 574
    object cds_cidadeCIDADE: TStringField
      FieldName = 'CIDADE'
      Required = True
      Size = 80
    end
  end
  object dsp_cidade: TDataSetProvider
    DataSet = sds_cidade
    UpdateMode = upWhereKeyOnly
    Left = 80
    Top = 574
  end
  object sds_cidade: TSQLDataSet
    CommandText = 'select * from CIDADES'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = scSge
    Left = 16
    Top = 574
    object sds_cidadeCIDADE: TStringField
      FieldName = 'CIDADE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 80
    end
  end
  object proc_interessados: TSQLClientDataSet
    CommandText = 
      'select COD_INTERESSADO'#13#10'        , NOME '#13#10'        , CIDADEIMOVEL'#13 +
      #10'        , RUAIMOVEL'#13#10'        , BAIRROIMOVEL '#13#10'from INTERESSADO'#13 +
      #10'where NOME like :pNome '#13#10'and ((ATENDIDO = :psit) or (:psit = '#39't' +
      'odos'#39'))   '#13#10'order by NOME'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pNome'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'psit'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'psit'
        ParamType = ptInput
      end>
    DBConnection = scSge
    Left = 583
    Top = 229
    object proc_interessadosCOD_INTERESSADO: TIntegerField
      FieldName = 'COD_INTERESSADO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Visible = False
    end
    object proc_interessadosNOME: TStringField
      DisplayLabel = 'Nome do Interessado'
      FieldName = 'NOME'
      Size = 80
    end
    object proc_interessadosCIDADEIMOVEL: TStringField
      FieldName = 'CIDADEIMOVEL'
      Visible = False
      Size = 80
    end
    object proc_interessadosRUAIMOVEL: TStringField
      FieldName = 'RUAIMOVEL'
      Visible = False
      Size = 100
    end
    object proc_interessadosBAIRROIMOVEL: TStringField
      FieldName = 'BAIRROIMOVEL'
      Visible = False
      Size = 40
    end
  end
  object sdsMov: TSQLDataSet
    CommandText = 'select * from MOVIMENTO '#13#10'where COD_MOVIMENTO = :pcod'
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    SQLConnection = scSge
    Left = 304
    Top = 528
    object sdsMovCOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object sdsMovDATA_MOVIMENTO: TDateField
      FieldName = 'DATA_MOVIMENTO'
      ProviderFlags = [pfInUpdate]
    end
    object sdsMovCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
    end
    object sdsMovCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
    end
  end
  object dspMov: TDataSetProvider
    DataSet = sdsMov
    UpdateMode = upWhereKeyOnly
    Left = 368
    Top = 528
  end
  object cdsMov: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'pcod'
        ParamType = ptInput
      end>
    ProviderName = 'dspMov'
    Left = 448
    Top = 528
    object cdsMovCOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
    end
    object cdsMovDATA_MOVIMENTO: TDateField
      FieldName = 'DATA_MOVIMENTO'
    end
    object cdsMovCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
    end
    object cdsMovCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
    end
  end
  object sqlMaladireta: TSQLDataSet
    CommandText = 'select * from MALA_DIRETA'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = scSge
    Left = 544
    Top = 535
  end
  object dspMalaD: TDataSetProvider
    DataSet = sqlMaladireta
    Left = 608
    Top = 536
  end
  object cdsMalaD: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspMalaD'
    Left = 672
    Top = 536
    object cdsMalaDMALA: TGraphicField
      FieldName = 'MALA'
      ProviderFlags = [pfInUpdate]
      BlobType = ftGraphic
    end
  end
  object sLanc: TSQLDataSet
    CommandText = 
      'select lanc.COD_LANCAMENTO,'#13#10'          lanc.COD_FIXOS, '#13#10'       ' +
      '   lanc.COD_IMALU, '#13#10'          lanc.COD_CONTAS, '#13#10'          lanc' +
      '.VALOR, '#13#10'          lanc.VALOR_TOTAL, '#13#10'          lanc.PARCELA, ' +
      #13#10'          udf_MonthName(lanc.VENCIMENTO) as mesparcela, '#13#10'    ' +
      '      lanc.VENCIMENTO,'#13#10'          lanc.COD_INQUILINO, '#13#10'        ' +
      '  lanc.COD_MOVIMENTO, '#13#10'          lanc.COD_PROPRIETARIO, '#13#10'     ' +
      '     lanc.VIA, '#13#10'          lanc.GRUPO, '#13#10'          lanc.TIPOCONT' +
      'A, '#13#10'          lanc.STATUS, '#13#10'          lanc.FORMAPGTO_RECEBTO, ' +
      #13#10'          lanc.N_DOCUMENTO,'#13#10'          lanc.DESCRICAO,'#13#10'      ' +
      '    lanc.SELECIONOU,'#13#10'          p.NOME_PROPRIETARIO,'#13#10'          ' +
      'i.NOME_INQUILINO,'#13#10'          c.DESCRICAO as CONTA '#13#10' from LANCAM' +
      'ENTOS lanc  '#13#10' left join PROPRIETARIOS p '#13#10' on p.COD_PROPRIETARI' +
      'O =  lanc.COD_PROPRIETARIO '#13#10' left join INQUILINOS i '#13#10' on i.COD' +
      '_INQUILINO =  lanc.COD_INQUILINO  '#13#10' left join PLANO_CONTAS c'#13#10' ' +
      'on c.COD_CONTAS =  lanc.COD_CONTAS '#13#10' order by   lanc.COD_CONTAS' +
      ' '
    MaxBlobSize = -1
    Params = <>
    SQLConnection = scSge
    Left = 304
    Top = 584
    object sLancCOD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sLancCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
      ProviderFlags = [pfInUpdate]
    end
    object sLancCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object sLancCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate]
    end
    object sLancVALOR: TFloatField
      FieldName = 'VALOR'
      ProviderFlags = [pfInUpdate]
    end
    object sLancVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object sLancPARCELA: TIntegerField
      FieldName = 'PARCELA'
      ProviderFlags = [pfInUpdate]
    end
    object sLancMESPARCELA: TStringField
      FieldName = 'MESPARCELA'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
      FixedChar = True
      Size = 15
    end
    object sLancVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
    end
    object sLancCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
    end
    object sLancCOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
    end
    object sLancCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
    end
    object sLancVIA: TStringField
      FieldName = 'VIA'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
      Size = 2
    end
    object sLancGRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
    end
    object sLancTIPOCONTA: TStringField
      FieldName = 'TIPOCONTA'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
      Size = 10
    end
    object sLancSTATUS: TStringField
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
      Size = 10
    end
    object sLancFORMAPGTO_RECEBTO: TStringField
      FieldName = 'FORMAPGTO_RECEBTO'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
      Size = 30
    end
    object sLancN_DOCUMENTO: TStringField
      FieldName = 'N_DOCUMENTO'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
      Size = 40
    end
    object sLancNOME_PROPRIETARIO: TStringField
      FieldName = 'NOME_PROPRIETARIO'
      ProviderFlags = []
      ReadOnly = True
      Size = 60
    end
    object sLancNOME_INQUILINO: TStringField
      FieldName = 'NOME_INQUILINO'
      ProviderFlags = []
      ReadOnly = True
      Size = 60
    end
    object sLancCONTA: TStringField
      FieldName = 'CONTA'
      ProviderFlags = []
      ReadOnly = True
      Size = 60
    end
    object sLancDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
      Size = 50
    end
    object sLancSELECIONOU: TStringField
      FieldName = 'SELECIONOU'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
      FixedChar = True
      Size = 1
    end
  end
  object pLanc: TDataSetProvider
    DataSet = sLanc
    Options = [poAllowCommandText]
    UpdateMode = upWhereKeyOnly
    Left = 344
    Top = 584
  end
  object cLanc: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'id'
        ParamType = ptInput
      end>
    ProviderName = 'pLanc'
    Left = 392
    Top = 584
    object cLancCOD_LANCAMENTO: TIntegerField
      FieldName = 'COD_LANCAMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object cLancCOD_FIXOS: TIntegerField
      FieldName = 'COD_FIXOS'
      ProviderFlags = [pfInUpdate]
    end
    object cLancCOD_IMALU: TIntegerField
      FieldName = 'COD_IMALU'
      ProviderFlags = [pfInUpdate]
    end
    object cLancCOD_CONTAS: TIntegerField
      FieldName = 'COD_CONTAS'
      ProviderFlags = [pfInUpdate]
    end
    object cLancVALOR: TFloatField
      FieldName = 'VALOR'
      ProviderFlags = [pfInUpdate]
      DisplayFormat = ',#0.00'
    end
    object cLancVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
      ProviderFlags = [pfInUpdate]
    end
    object cLancPARCELA: TIntegerField
      FieldName = 'PARCELA'
      ProviderFlags = [pfInUpdate]
    end
    object cLancMESPARCELA: TStringField
      FieldName = 'MESPARCELA'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
      FixedChar = True
      Size = 15
    end
    object cLancVENCIMENTO: TDateField
      FieldName = 'VENCIMENTO'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
    end
    object cLancCOD_INQUILINO: TIntegerField
      FieldName = 'COD_INQUILINO'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
    end
    object cLancCOD_MOVIMENTO: TIntegerField
      FieldName = 'COD_MOVIMENTO'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
    end
    object cLancCOD_PROPRIETARIO: TIntegerField
      FieldName = 'COD_PROPRIETARIO'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
    end
    object cLancVIA: TStringField
      FieldName = 'VIA'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
      Size = 2
    end
    object cLancGRUPO: TStringField
      FieldName = 'GRUPO'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
    end
    object cLancTIPOCONTA: TStringField
      FieldName = 'TIPOCONTA'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
      Size = 10
    end
    object cLancSTATUS: TStringField
      FieldName = 'STATUS'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
      Size = 10
    end
    object cLancFORMAPGTO_RECEBTO: TStringField
      FieldName = 'FORMAPGTO_RECEBTO'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
      Size = 30
    end
    object cLancN_DOCUMENTO: TStringField
      FieldName = 'N_DOCUMENTO'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
      Size = 40
    end
    object cLancNOME_PROPRIETARIO: TStringField
      FieldName = 'NOME_PROPRIETARIO'
      ProviderFlags = []
      ReadOnly = True
      Size = 60
    end
    object cLancNOME_INQUILINO: TStringField
      FieldName = 'NOME_INQUILINO'
      ProviderFlags = []
      ReadOnly = True
      Size = 60
    end
    object cLancCONTA: TStringField
      FieldName = 'CONTA'
      ProviderFlags = []
      ReadOnly = True
      Size = 60
    end
    object cLancDESCRICAO: TStringField
      FieldName = 'DESCRICAO'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
      Size = 50
    end
    object cLancSELECIONOU: TStringField
      FieldName = 'SELECIONOU'
      ProviderFlags = [pfInUpdate]
      ReadOnly = True
      FixedChar = True
      Size = 1
    end
  end
  object cdsBanco: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspBanco'
    Left = 887
    Top = 254
    object cdsBancoCODBANCO: TSmallintField
      FieldName = 'CODBANCO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object cdsBancoBANCO: TStringField
      FieldName = 'BANCO'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 18
    end
    object cdsBancoNOMEBANCO: TStringField
      FieldName = 'NOMEBANCO'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 30
    end
    object cdsBancoCARTEIRA: TStringField
      FieldName = 'CARTEIRA'
      FixedChar = True
      Size = 3
    end
    object cdsBancoCODIGO_CEDENTE: TStringField
      FieldName = 'CODIGO_CEDENTE'
      Size = 10
    end
    object cdsBancoCODIGO_EMPRESA: TStringField
      FieldName = 'CODIGO_EMPRESA'
      Size = 10
    end
    object cdsBancoCODIGO_AGENCIA: TStringField
      FieldName = 'CODIGO_AGENCIA'
      Size = 10
    end
    object cdsBancoDIGITO_AGENCIA: TStringField
      FieldName = 'DIGITO_AGENCIA'
      FixedChar = True
      Size = 1
    end
    object cdsBancoNUMERO_CONTA: TStringField
      FieldName = 'NUMERO_CONTA'
      Size = 10
    end
    object cdsBancoDIGITO_CONTA: TStringField
      FieldName = 'DIGITO_CONTA'
      FixedChar = True
      Size = 1
    end
    object cdsBancoCODIGO_PLANO: TIntegerField
      FieldName = 'CODIGO_PLANO'
    end
    object cdsBancoINSTRUCAO1: TStringField
      FieldName = 'INSTRUCAO1'
      Size = 100
    end
    object cdsBancoINSTRUCAO2: TStringField
      FieldName = 'INSTRUCAO2'
      Size = 100
    end
    object cdsBancoINSTRUCAO3: TStringField
      FieldName = 'INSTRUCAO3'
      Size = 100
    end
    object cdsBancoINSTRUCAO4: TStringField
      FieldName = 'INSTRUCAO4'
      Size = 100
    end
    object cdsBancoCEDENTE: TStringField
      FieldName = 'CEDENTE'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object cdsBancoNCONVENIO: TIntegerField
      FieldName = 'NCONVENIO'
      ProviderFlags = [pfInUpdate]
    end
    object cdsBancoESPECIEDOC: TStringField
      FieldName = 'ESPECIEDOC'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object cdsBancoACEITE: TStringField
      FieldName = 'ACEITE'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object cdsBancoCONVENIO: TStringField
      FieldName = 'CONVENIO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object cdsBancoLOCALPGTO: TStringField
      FieldName = 'LOCALPGTO'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
  end
  object dspBanco: TDataSetProvider
    DataSet = sdsBanco
    Left = 822
    Top = 254
  end
  object sdsBanco: TSQLDataSet
    CommandText = 'select * from BANCO'
    MaxBlobSize = -1
    Params = <>
    SQLConnection = scSge
    Left = 758
    Top = 254
    object sdsBancoCODBANCO: TSmallintField
      FieldName = 'CODBANCO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object sdsBancoBANCO: TStringField
      FieldName = 'BANCO'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 18
    end
    object sdsBancoNOMEBANCO: TStringField
      FieldName = 'NOMEBANCO'
      ProviderFlags = [pfInUpdate]
      Required = True
      Size = 30
    end
    object sdsBancoCARTEIRA: TStringField
      FieldName = 'CARTEIRA'
      FixedChar = True
      Size = 3
    end
    object sdsBancoCODIGO_CEDENTE: TStringField
      FieldName = 'CODIGO_CEDENTE'
      Size = 10
    end
    object sdsBancoCODIGO_EMPRESA: TStringField
      FieldName = 'CODIGO_EMPRESA'
      Size = 10
    end
    object sdsBancoCODIGO_AGENCIA: TStringField
      FieldName = 'CODIGO_AGENCIA'
      Size = 10
    end
    object sdsBancoDIGITO_AGENCIA: TStringField
      FieldName = 'DIGITO_AGENCIA'
      FixedChar = True
      Size = 1
    end
    object sdsBancoNUMERO_CONTA: TStringField
      FieldName = 'NUMERO_CONTA'
      Size = 10
    end
    object sdsBancoDIGITO_CONTA: TStringField
      FieldName = 'DIGITO_CONTA'
      FixedChar = True
      Size = 1
    end
    object sdsBancoCODIGO_PLANO: TIntegerField
      FieldName = 'CODIGO_PLANO'
    end
    object sdsBancoINSTRUCAO1: TStringField
      FieldName = 'INSTRUCAO1'
      Size = 100
    end
    object sdsBancoINSTRUCAO2: TStringField
      FieldName = 'INSTRUCAO2'
      Size = 100
    end
    object sdsBancoINSTRUCAO3: TStringField
      FieldName = 'INSTRUCAO3'
      Size = 100
    end
    object sdsBancoINSTRUCAO4: TStringField
      FieldName = 'INSTRUCAO4'
      Size = 100
    end
    object sdsBancoCEDENTE: TStringField
      FieldName = 'CEDENTE'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
    object sdsBancoNCONVENIO: TIntegerField
      FieldName = 'NCONVENIO'
      ProviderFlags = [pfInUpdate]
    end
    object sdsBancoESPECIEDOC: TStringField
      FieldName = 'ESPECIEDOC'
      ProviderFlags = [pfInUpdate]
      Size = 5
    end
    object sdsBancoACEITE: TStringField
      FieldName = 'ACEITE'
      ProviderFlags = [pfInUpdate]
      Size = 2
    end
    object sdsBancoCONVENIO: TStringField
      FieldName = 'CONVENIO'
      ProviderFlags = [pfInUpdate]
      Size = 10
    end
    object sdsBancoLOCALPGTO: TStringField
      FieldName = 'LOCALPGTO'
      ProviderFlags = [pfInUpdate]
      Size = 100
    end
  end
end
